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1 
Introducción 


Este libro es una continuación del primero y se fundamenta en 
el mismo. Está concebido para estudiarse paso a paso puesto 
que cada capítulo da por sentado que se ha leído y asimilado lo 
expuesto con anterioridad. Por el contrario, los Apéndices son 
para uso en cualquier momento. El Apéndice A debe ser de 
ultilidad cuando se tenga un programa que no parezca hacer lo 
que debiera. El glosario del Apéndice E tiene como finalidad 
refrescar tu memoria acerca de los significados de palabras 
particulares. 


Los programas se agrupan en dos apartados: 

COLOR, SONIDOS, PLOTTER, CIRCULOS 

Estos cuatro programas están estrechamente ligados con el 
contenido del libro y debes utilizarlos con referencia a la sección 
indicada. PLOTTER (trazador) y CIRCULOS contienen juegos 
que te ayudarán a desarrollar tus aptitudes para el dibujo. El 
programa SONIDOS implicará al Spectrum en un órgano 
electrónico, un metrónomo y un “zumbador Morse para quienes 
no saben Morse”. 


HISTOGRAMA, DADO, TESORO 

Estos programas muestran algunas formas en las que se puede 
utilizar el odenador para enseñanza y diversión. Antes de usar 
HISTOGRAMA o DADO, has de examinar los apéndices al final 
del libro. Ambos programas necesitan un poco de explicación si 
quieres obtener lo máximo de ellos. Cuando trates de encontrar 
el tesoro, has de vigilar a los caníbales!. 


Si deseas ver cómo un programa controla un efecto particular, o 
rutina, has de interrumpir (BREAK) el programa en el punto de 
interés. Toma nota del número de línea en el informe y haz el 
listado en ese número de línea o un poco antes. Encontrarás 
esto mucho más fácil que hacer el listado del programa 


completo y tratar de encontrar las líneas que quieras estudiar. 
Los listados de los programas pueden resultar bastante 
abrumadores, pero si se realizan un poco cada vez, pueden 
servir para mejorar tu asimilación de la labor del ordenador. 

Algunos de los programas tienen índices para ayudarte a 
encontrar las rutinas. 


Aunque estas colecciones de programas se han elaborado 
especialmente para el Spectrum, los conocimientos y los 
conceptos que enseñan se aplican a casi todos los demás 
ordenadores personales. Una vez que te hayas familiarizado 
con el Spectrum, también podrás trabajar, con muy poco 
esfuerzo suplementario, con cualquier otro microordenador que 
utilice como lenguaje el BASIC. 


2 
Planificación 
de programas | 


COMIENZO (“START”) Cuando estés elaborando un 
programa en el ordenador, a menudo desearás ejecutar una 
parte del mismo para cerciorarte de que functionará 
correctamente. Sin embargo, la orden RUN comienza siempre au 
principio. Si por el contrario introduces GO TO y a continuación 
el número de línea de la sección que deseas examinar, el 
programa se ejecutará solamente a partir de esa línea. 

GO TO tiene una segunda ventaja. No borra los datos 
almacenados cuando los ejecuta. Ello significa que todos los 
datos que introduciste (INPUT) durante una ejecución anterior 
estarán todavía allí, incluso aunque entretanto puedas haber 
hecho el listado y editado el programa. 


PARADA (“STOP”) Puede haber una sección particular de tu 
programa que quieras examinar más detenidamente, pero que 
desaparecerá cuando el ordenador prosiga con la siguiente 
parte. Puedes detener el programa en donde quieras 
escribiendo una línea STOP al final de dicha sección. Con 
CONTINUE volverás a comenzar a partir del punto de STOP o 
puedes volver a la ejecución con el empleo de GO TO. La línea 
STOP puede ser eliminada una vez que ya no la necesites. 


PAUSA (“PAUSE”) Sirve para detener un tiempo el 
programa. Puedes avanzar a través de una sección paso a paso 
con el empleo de una serie de líneas de PAUSE 0. Con ellas se 
detendrá todo hasta que estés preparado para seguir adelante. 
De nuevo, puedes eliminarlas mas tarde. 

Es preciso pararse con la introducción de STOP cuando no 
actúan las líneas BREAK. Si tienes una rutina como la siguiente: 


100 INPUT AS 
110 PRINT AS 
120 GO TO 100 


(y habrá ocasiones en que te encontrarás con algo muy similar) 
resulta casi imposible la parada con el empleo de BREAK. En su 
lugar, suprime las comillas del cursor de INPUT con el empleo 
de [> y de DELETE e introduce STOP. El programa se 
interrumpirá con un informe 'STOP in INPUT”. Ahora puedes 
listar y editar la línea 120. 
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Impresión de colores 


En el Apéndice B del primer libro pudiste ver cómo podrás 
establecer los colores para una página con el empleo de líneas 
como las que se indican a continuación: 


10 BORDER 4:PAPER 6: INK 2 
20 PRINT “No es esto bonito?” 


También viste cómo podrás poner varias órdenes, o comandos, 
en una línea PRINT, con la separación por puntos y comas, 
como en el ejemplo siguiente: 


PRINT AT 0,0 ; “Izquierda”; TAB 26;“Derecha” 


Los cambios de color pueden incluirse también en una línea 
PRINT. 


10 PRINT “Esto es ”“¿INK 2 ; “Rojo” 
20 PRINT “Vuelta a normal” 


Cuando la orden de color está en el interior de una línea PRINT, 
el cambio sólo dura para esa línea. Varios cambios pueden 
introducirse en la misma línea. 


10 PRINT INK 2;“rojo”; INK 4; “ verde”; INK 7; 
“blanco ” 
20 PRINT “Vuelta a negro” 


¿Qué sucedió con “blanco”?. 


Si vas a utilizar varios colores en una sola página, ahorrarás 
tiempo y dificultades si decides primero qué colores INK y 
PAPER utilizarás más y los fijas, en líneas separadas, al 
comienzo del programa para esa página. 


Cuando trabajes con colores, encontrarás que cuando haces el 


listado del programa, después de una ejecución (RUN), dicho 
listado aparecerá en cualquiera de los colores de INK y de 
PAPER que utilizarás últimamente. 

Teclea esto, ejecútalo y haz el listado correspondiente. 


10 INK 7: PRINT “Esto es invisible” 


Evita este problema poniendo una línea al final del programa 
como la que sigue: 


1000 BORDER 7: PAPER 7: INK Q 


Después de la ejecución (RUN), introduce G0 TO 1000 y luego 
haz el listado (LIST). Habrás vuelto a un blanco y negro 
fácilmente legible. 

La fijación de tus colores para una página poniendo las 
Órdenes, o comandos, en líneas separadas (o en una linea 
separadas por comas) o la obtención de efectos locales poniendo 
órdenes en el interior de líneas PRINT, lo tienes en color total y 
local, en el programa COLOR. 


Escribe un programa que comience preguntando qué colores 
preferiría utilizar el usuario. A continuación, debe fijar esos 
colores antes de que pase a hacer la pregunta “Quién está ahí?”, 
o de que haga una indagación o cualquier otra cosa. 
Probablemente te parecerá mejor si mantienes los mismos 
colores de la pantalla, BORDER y PAPER, para el contorno y el 
centro de la misma. 

Si tienes dificultades, comprueba tu programa con respecto al 
de la Figura 3. 


NEW?! 


Esta rutina se parece a hacer nuevo (NEW) un programa. Haz 
un programa más grande para sorprender a alguien. 


10 PAPER 0:CLS (da una pantalla como en la Figura 1) 

20 FOR d=1 TO 150 : NEXT d (espera un segundo) 

30 PAPER 7 :CLS 

40 PRINT AT 21,0; “O) 1982 Sinclair Research Ltd ” 
(da la Figura 2) 

50 PAUSE 0 


(01982 Sinclair Research Ltd. 


Figura 1 Figura 2 


Observa CLS en las líneas 10 y 30. Después de CLS, la pantalla 
aparecerá en cualquiera de los colores de PAPER y de BORDER 
que se fijaron en último lugar. 

Un bucle de retardo se utiliza en la línea 20 en lugar de 
PAUSE 25 (que haría la espera más larga). Ello ha de asegurar 
que consigas el retardo. Si alguien tocara el teclado cuando el 
programa llegue a la línea 20, ello anularía la PAUSE y se 
perdería el efecto correspondiente. Puedes utilizar una PAUSE 
al final, porque la pantalla de comienzo real se controla también 
por una línea similar. 

Si deseas confundir a alguien, escribe este programa por tí 
mismo y añade: 


60 NEW 


Al ir NEW después, se mantendrá el secreto de tu treta. 


Programa de selección de colores 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


“Por favor selecciona color pantalla” 
“Para negro pulsa v 


“Para azul pulsa nes 
“Para rojo pulsa 2 
“Para magenta pulsa 3” 
“Para verde pulsa 4” 
“Para cian pulsa y 


“Para amarillo pulsa 6” 
“Para blanco pulsa 7” 
A 


BORDER A:PAPER A: CLS 


PRINT 


“Por favor selecciona 


color tinta” 
130 PRINT “Para negro pulsa 0” 


210 
220 


Figura 3 


INPUT 
INK 1 


1 


ON/OFF (presencia/ausencia) de colores 


Hay cuatro órdenes, o comandos, que pueden cambiar el 
aspecto de tu impresión. Actúan de la misma forma que los 
colores para proporcionar efectos totales y locales. Son: 


BRIGHT (modo E, SHIFT y B ) 
INVERSE (modo E, SHIFT y M ) 
FLASH (modo E, SHIFT y V ) 
OVER (modo E, SHIFT y N ) 


Todas son del tipo de ON (presencia) o OFF (ausencia). Cuando - 


utilizas por primera vez el ordenador, o después de NEW, están 
en OFF. Ponlos en ON como sigue: 


10 BRIGHT 1 (poneenON) 
20 PRINT “sol” 

30 BRIGHT QU (pone en OFF) 
40 PRINT “sombra” 


11 


Date cuenta del contraste entre una y otra visualización. 


Utilizada en una línea, BRIGHT hará que una palabra se 
destaque haciendo más brillante PAPER. 


10 PRINT “Esto es ”; BRIGHT 1;“importante” 
20 PRINT “pero esto no lo es” 


INVERSE Cada espacio de caracteres en la pantalla está 
constituído por ocho filas de ocho puntos. Los puntos son de 
color INK o PAPER. INVERSE 1 los permuta, poniendo PAPER 
en lugar de INK y viceversa. En la Figura 4 puedes ver la 
diferencia entre la impresión normal e inverse (INVERSE). Date 
cuenta de que aunque esté activa INVERSE, tu programa 
permanece en el negro sobre el blanco normal, cuando hagas el 
listado. Si deseas invertir los caracteres en el listado, has de 
emplear CAPS SHIFT y 4 para obtener vídeo inverso. Ello hará 
que las palabras se destaquen en las líneas de tu programa, pero 
no en la pantalla cuando se esté ejecutando salvo cuando le 
pidas que imprima (PRINT) caracteres tecleados en vídeo 
inverso. Para volver al modo normal, utiliza esta vez CAPS 
SHIFT y 3 —- vídeo verdadero. 


FLASH conmuta rápidamente entre normal e inverso para 
obtener su efecto. Es de gran utilidad para atraer la atención 
hacia una palabra particular en la pantalla. 


Normal (Inverse 0) Inverse 


Figura 4 


12 


10 FLASH 1 

20 PRINT “Contesta a esta pregunta” 
30 FLASH Q 

40 INPUT AS 


Pero has de tener mucho cuidado al dejarlo de aplicar. En el 
corto programa anterior, la impresión de “Conteste a esta 
pregunta” daría lugar a la acción de FLASH después de INPUT, 
a no ser que se sobreimprima quizás como en el programa 
siguiente: 


10 FLASH 1 

20 PRINT AT 0,0; “Conteste a esta pregunta” 
30 FLASH Q 

4M INPUT AS 

50 PRINT AT 0,0; “Gracias le 


(Debes cerciorarte de que incluyes suficientes espacios en la 
línea 50 para cubrir completamente las palabras de FLASH). 


Si estás escribiendo un programa... 


10 FLASH 1 
20 PRINT “ Programas en Flash ” 


y lo ejecutas y luego haces el listado, tendrás un programa 
FLASHING en listado. Ejecuta (RUN) este último y miras lo que 
aparece. Para detenerlo, teclea FLASH 0 (no necesitas ningún 
número de línea) y luego ENTER. 

Haz de nuevo un listado (LIST) y el nuevo listado quedará en 
reposo. Vuelve a pulsar ENTER y el listado normal pasa a la 
parte superior, con lo que se lleva el de FLASH fuera de la 
pantalla. 


Podrás encontrar de utilidad incluir esto en una línea de retorno 
a normal, al final: 


1000 BORDER 7: PAPER 7: INK Q : FLASH Q: 
INVERSE 0: BRIGHT Q 


GO TO 1000 resuelve ahora todos los problemas. 
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El programa que tienes en la Figura 5 muestra a FLASH 
utilizado para hacer INPUT de imitación. Te podrá gustar 
introducirlo en un programa (en alguna parte imprevista!). 


10 PRINT AT 21,0," “";FLASH 1;“L"7 FLASH 0;“7“” 
(cuatro juegos de comillas para poder obtener 1 en pantalla) 


20 PAUSE Q 

30 CLS 

40 PRINT AT 10,5; Despacio, que haces daño” 
50 INPUT AS 


Figura 5 


La línea 10 aparece como el cursor de INPUT y está casi en el 
lugar correcto. Después de la queja del ordenador, hay un 
INPUT real. 


Sobreimpresión 


OVER esun “color' bastante especial. Te permite imprimir 
(PRINT) dos (o más) caracteres en el mismo espacio, uno en la 
parte superior del otro. Hay dos formas de hacer esto. 


10 OVER 1 
20 PRINT AT 0,0; (signo igual) 
30 PRINT AT 0,0; (signo menos) 


Ejecuta (RUN) estas líneas y obtendrás una “barra maciza” 
constituída a partir de los signos igual y menos. 


En lugar de emplear dos líneas PRINT AT separadas, es 
preferible que utilices el retroceso del Spectrum. 


CHR$ 8 (modo E y U y luego, número normal 8) 


hará retroceder la posición de PRINT. Lo que está sucediendo, 
en este caso, es que estás empleando los propios CODIGOS de 
caracteres del Spectrum para desplazar el cursor, en lugar de 
utilizar CAPS SHIFT y el <] en 5. Evidentemente, no puedes 
emplear la flecha durante la operación de ejecución del 
ordenador. Más adelante volverás sobre estos CODIGOS de 
caractéres. 


El programa de sobreimpresión (OVER PRINTING) aparecerá 
ahora como sigue: 


10 OVER 1 
20 PRINT AT 0,0;"=";CHR$ 8; 


Ejecútalo y verás la misma barra que anteriormente. 
OVER borra también. Si hay un punto de INK (tinta) en la 


misma parte del espacio en ambos caracteres, el color de PAPER 
se hará transparente. 


Prueba esto. Cambia la línea 20 anterior para que quede: 

20 PRINT AT 0,0;“A”";CHR$ 8;“A” 
y no aparecerá nada, pues la segunda A borró la primera. 
Combinando diferentes letras y símbolos puedes conseguir 


algunos caractéres nuevos interesantes. En la Figura 6 tienes 
algunas ideas y en la Figura 7 un programa de ejemplo. 


ZyNhacen (Y  —¿Unarueda? 

0 y L hacen ZA. —¿una flecha? 

0yMhacen > —laletra griega sigma 
Uy hacen U  -—¿unvaso? 


(SHIFT y 0) ; 


¿Qué te parecen algunas bombas para invasores del espacio? 
“y + hacen ++ 
w y v hacen ai: (minúsculas) 


Figura 6 


10 OVER 1 

20 FOR L= Q TO 20 (descendiendo por la pantalla) 

30 PRINT AT L,12;“” (un espacio para borrar en donde 
estaba la bomba) 

40 PRINT AT L+1,12;"w"; CHR$ 8;%v” (la bomba) 

50 NEXT L 


Figura 7 
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de programas 2 


A medida que tus programas se hagan más complicados te irás 
encontrando con el empleo de más almacenes de números y de 
cadenas. El llevar en cuenta estas variables es muy importante, 
pues puedes olvidar fácilmente qué almacenes estás utilizando 
y para qué. Las siguientes recomendaciones pueden servir de 
ayuda. 


Utiliza iniciales 
A$ por respuesta (Answer); N$ por Nombres; P por tonos 
(Pitch); C por Contaje; T por Total; I por tinta (Ink). 

No siempre pueden ser de utilidad. Puedes tener tono 
(“pitch”) y papel (“paper”) controlados por variables y no podrías 
emplear P para ambos; podría ser uno P1 y otro P2, o bien Pi y 
Pa. Los nombres de almacenes suelen ser de una sola letra, pero 
ello se debe exclusivamente a la idea de ahorrar tiempo de 
tecleado (¡y errores de mecanografiado!). Puedes hacerlo con 
dos o más letras de longitud o con una letra seguida por un 
número. El ordenador los trata como almacenes separados (ver 
Figura 8). 


Entrega para Pa. 
¿En dgnde está su casillero?. 
LAR! Lo encontré. 


Figura 8 


Mantener un registro 
Haz una lista de qué almacenes estás utilizando, en dónde los 
estás empleando y qué se almacena en ellos. Algunos se 
utilizarán para solamente una parte del programa y podrían 
volverse a usar más tarde, para fines diferentes, si los pudieras 
necesitar más adelante. 


Haz una impresión 

Si no puedes ver lo que está sucediendo en una parte del 
programa (y suele suceder así) introduce una línea que imprima 
(PRINT) el valor de la variable. En la Figura 9 tienes un ejemplo. 
Puedes eliminar la línea 15 más adelante cuando las cosas vayan 
mejor. 


9 REM P=Tono de nota 

10 FOR P=1 TO 50 (Pes aquí tono, o “Pitch”, de nota) 
15 PRINT P (línea provisional) 

20 BEEP .1,P 

30 NEXT P 


Figura 9 


Utiliza líneas de REM 
Escribe líneas de REM en tu programa cerca de las variables, 
indicando lo que hace cada una. Ello te servirá de ayuda cuando 
hagas el listado del programa. Puedes proceder a su edición 
correctora más adelante si te quedas escaso de memoria o 
dejarlos así de modo que comprendas el programa cuando 
vuelvas al mismo al cabo de seis meses. 
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Bucles de colores 


La colocación de cambios de colores en bucles FOR. . NEXT 
permite algunos efectos interesantes. Probablemente hayas 
encontrado algo similar con anterioridad en el programa 
AMABLE. 


10 FOR C=8 TO 7 

20 PAPER C: INK 7—C 

30 PRINT AT 10,10;” VETE DE AQUI” 
40M PAUSE 10 

50 NEXT C 


que comienza con “VETE DE AQUI” en PAPER (0) negro con 
INK blanco (7—0=7) y prosigue a través de los colores para 
acabar con PAPER blanco (7) e INK negro (7-7=0). Verás más 
ejemplos de bucles de colores en el programa COLORES. 
Encontrarás líneas como estas en los programas DADO e 
HISTOGRAMA, en donde se necesitan barras coloreadas 
diferentes: 


10 FOR N=0 TO 5 (N. el Número de la barra) 
20 LETI=N*x*2 
30 INK I 


Esto cambia el color de INK en pasos de 2 (para dar un mejor 
contraste) —0%2=0 (negro); 12=2 (rojo); 2*2=4 (verde); 

3*2=6 (amarillo) — pero agota los colores útiles después de éste. 
Prueba a utilizar estas líneas mientras sea admisible y acabarás 
con un informe “Invalid Colour” (Color no válido). Para 
subsanar este problema, necesitas añadir una línea: 


25 1F 1 > 7 THEN LET 1] =1-7 


Ahora cuando el bucle llega a 4, esto es lo que sucede: 


10 FOR N=0 TO 5 (N=4esta vez) 

20 LET 1 = Nx*x2  (porlo que I=8) 

25 IF 1 > 7 THEN LET 1 = 1-7 (l=8-7=1) 
30 INK 1 (I=1 = azul) 


Utiliza una línea como 25 siempre que el número en el almacén 
de colores pudiera ser superior a 7. Incluso podrías tener 
necesidad de restar 7 más de una vez: 


25 IF 1 > 7 THEN LET I=1-7: GO TO 25 


El programa bastante enojoso de la Figura 10 utiliza una serie de 
líneas para mantener los números de colores dentro del 

margen. Si deseas seguir lo que está sucediendo, tienes que 
añadir una línea suplementaria en 25 para PRINT Ie 
incrementar el tiempo de BEEP para hacerlo más lento. 


10 FOR N=0 TO 50 

20 LET I=N5N 

30 IF 1 > 7 THEN LET 1 = I—7: GO TO 30 
40 PAPER 1: BORDER 7—I:CLS 

50 BEEP .1,N 

60 NEXT N 

70 GO TO 10 (esta se ejecutará una y otra vez) 


Figura 10 


Los demás colores: 8 y 9 


Estos no están marcados como colores en el teclado, pero están 
en el mismo. 


8 significa transparente. 


Si imprimes caracteres con el color PAPER ajustado a 8, se harán 
transparentes los colores del fondo, cualesquiera que sean. 


9 significa contraste. 


Como PAPER 8, éste se utiliza cuando se imprime sobre un 
fondo de colores diferentes. INK 9 elegirá automáticamente un 


color INK que proporciona el mejor contraste con el color 
PAPER que está siendo objeto de impresión. 

El programa que tienes en la Figura 11 te indica el empleo de 
los colores 8 y 9. 


10 FOR L=0 TO 21 (porlo que actúa en toda línea) 

20 FOR P=0 TO 7 (P=color Paper) 

30 PAPER P 

40 PRINT ” "; (cuatro espacios seguidos por punto 
y coma) 

50 NEXT P :NEXT L (cierra los bucles) 

60 PRINT AT 0,0; (desplaza la posición de PRINT 
al comienzo) 

70 PAPER 8 (PAPER transparente) 

80 INK 9 (INK con contraste) 

90 PRINT “Hola mamá”; (recuerda el punto y coma) 

100 GOTO9M (llena la pantalla con saludos cariñosos) 


Figura 11 


Las líneas 10 a 50 proporcionan un fondo con bandas de colores 
múltiples. La línea 60 no imprime absolutamente nada en la 
parte superior izquierda de la pantalla, pero desplaza hacia 
atrás la posición de PRINT. Las líneas 90 y 100 imprimen 
continuamente a través y abajo de la pantalla. Todos los puntos 
y comas son esenciales. Omítelos y mira la diferencia. 


Diseña tu propio papel decorativo para paredes 


Empieza por encontrar una combinación interesante de 
caracteres sobreimpresos o unas pocas formas de gráficos. Por 
ejemplo: 


20 OVER 1: PRINT “A”¿CHR$ 8; “4” (SHIFT, y [3] 
para ++) 


O forma de gráficos 


20 PRINT “gg” 


Elige ahora un color de fondo como éste: 


10 FOR C=0 TO 7: PAPER C 

20 PRINT “pg” 

30 PRINT “NUMERO PAPER ”;C (para seguir la pista) 
40M NEXT C 


Ejecuta estas líneas y escoge el fondo que te guste más. El color 
INK viene a continuación. Cambia las líneas 10 y 30: 


10 FOR C=0 TO 7: INK C 


30 PRINT “NUMERO INK ”; C 


y añade: 
15 PAPER... (cualquiera que elija) 


Ejecuta estas líneas y escoge tu color INK. 


Vuelve a escribir el programa de modo que fije los colores 
PAPER o INK e imprime una pantalla completa de tu propio 
gusto. 


10 PAPER...: INK... (cualquier número) 
20 PRINT “E”;  (noolvides el punto y coma) 
30 GO TO 20 


Este punto y coma en la línea 20 dice al ordenador que imprima 
lo que venga inmediatamente después de lo último, en lugar de 
una línea separada (que es lo que suele hacerse). Haz la 
ejecución correspondiente y mira lo que sucede. 

Experimenta con diferentes diseños y encontrarás que 
algunos de ellos imprimen configuraciones regulares hacia 
abajo de la pantalla (ver Figura 12). 

Otros diseños producen configuraciones diagonales (ver 
Figura 13). ¿Cuál es la relación entre la longitud del diseño y la 
anchura de la pantalla? ¿Qué longitudes de diseños producen 
configuraciones simples de líneas verticales?. 
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Fondos de colores múltiples 

Sustituye los saludos cariñosos en el programa de la Figura 11 
por un gráfico o un diseño de sobreimpresión. Modifica el 
número de espacios en la línea 40 para obtener otros fondos, en 
lugar de bandas simples. 


Color PAPER de gran diseño 

Si quieres que tu diseño cubra más de una línea, debes utilizar 
un par de bucles de líneas y de columnas para obtener una 
pantalla llena. Haz primero tu diseño, con gráficos o caracteres 
sobreimpresos (acaso como en la Figura 14 con la forma de 
perro). 

Ahora distribuye tus colores en la forma habitual: 


10 FOR C=0 TO 7 (C= Color) 
20 PAPER C 

30 PRINT AT 0,0;“Hunolla ” 

40 PRINT AT 1,0;“4p” 

50 PAUSE Q 

60 NEXT C 


Cerciórate de que tienes el mismo número de caracteres en cada 
línea de PRINT. Si una línea es más corta que la otra, ha de 
compensarse con espacios. 


Cuando tus colores PAPER e INK estén distribuídos, puedes 
tratar de conseguir una pantalla llena. Examina la configuración 
de la Figura 15. Verás que hay ocho formas de perro por fila. 
¿Qué números de columnas deben corresponder a los 
comienzos de estas figuras?. El primero debe estar en la 
columna 0, el siguiente en 4, luego en 8, 12, 16, 20, 24 y el último 
en 28. En este caso, tenemos una serie, pero se trata de una serie 
en pasos de 4. El ordenador ejecutará una serie como esta 
mediante un bucle si se le da instrucciones especiales: 


FOR C=0 TO 28 STEP 4 (SHIFT y D para STEP) 


STEP comunica al ordenador la diferencia que existe entre los 
números de la serie. Se necesita también un STEP en el bucle de 


líneas. La figura diseñada ocupa dos líneas. La primera 
comienza en la línea 0 y la última en la línea 20 y el STEP (paso) 
es 2. 


Figura 14 


He aquí el programa completo: 


10 PAPER ...:INK ... (cualquier número que te guste) 
20 FOR L=0 TO 20M STEP 2 (cada dos líneas) 

30 FOR C=0 TO 28 STEP 4 (saltar cuatro columnas) 
40 PRINT AT L,C;“Mumulla ” 

50 PRINT AT L+1,C;“4p" 

60 NEXT C 

70 NEXT L 


Haz la introducción por el teclado y ejercítalo o cambia el gráfico 
en las líneas 40 y 50 para una imagen de “tu creación”. Prueba 
diferentes diseños y mira lo que puedes conseguir. Los diseños 
pueden ser de cualquier tamaño, pero recuerda hacer sus 
STEPS del mismo tamaño que los espacios de líneas y de 
columnas del diseño. 

Cuando encuentres un diseño que te guste realmente graba 
(SAVE) el programa y guárdalo de forma segura hasta que se 
invente una impresora que trabaje con papel decorativo de 
paredes en blanco (!). 


Más ideas 

1 Deja huecos entre tus bloques de diseño impreso, haciendo 
los STEPS más grandes que lo que necesitas. Ahora puedes 
establecer un color de fondo diferente fijando el color de 
PAPER al comienzo del programa y escribiendo, luego, el 
color de PAPER para el diseño dentro de la línea de 
PRINT. .. 


40 PRINT AT L,C;PAPER 45... 


Figura 15 


2 Puedes sobreimprimir OVERPRINT tu “papel pintado” 
(decorativo de pared) después de la primera pantalla llena. 
Escribe otro diseño en otro par de bucles de línea y de 
columna para seguir a partir del primero. Necesitarás 


introducir OVER y probablemente tengas necesidad de 
ajustar tu color de PAPER a 8. 

Si, en lugar de un bucle, deseas obtener la sobreimpresión 
con el empleo de la simple PRINT “ ” y una línea GO 
TO para imprimir una pantalla completa, no debes olvidar 
poner la posición de PRINT de nuevo al comienzo con una 
línea “PRINT AT 0,05". 

3 Consigue un fondo coloreado con figuras geométricas 
atractivas con el empleo de caracteres de gráficos. El que 
obtienes con la tecla 6 produce cuadros diminutos; con la 
tecla 5 obtendrás franjas delgadas. Puedes imprimir sobre 
ello en tanto que utilices colores “transparentes (PAPER 8: 
INK 8). El siguiente programa proporciona la configuración 
ilustrada en la Figura 16. Varía la forma de gráficos en la 
línea 40 y la combinación de caracteres en la línea 80. 


10 FOR L=0 TO 21 

20 FOR C=8 TO 31 

30 PAPER 6: INK 1 (esto es, amarillo y azul) 
40 PRINT AT L,C¿“s"” (gráfico en tecla 6) 

50 NEXT C: NEXT L 

60 PRINT AT 0,0; (vuelta al comienzo) 

70 PAPER 8: INK 8 

80 OVER 1: PRINT “+”; CHR$ 8;“4” 

90 GO TO 80 


Figura 16 
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4 Conserva (SAVE) tus mejores diseños como imágenes, así 


como en forma de programa. Pon a punto tu grabadora de 
cassette en la manera habitual para la grabación y luego, 
teclea esta línea: 


SAVE “papel pintado” SCREEN$ (modo E, SHIFT y K) 


y sigue como si fueras a hacer una grabación normal. Así se 
grabará la imagen real de la pantalla. 

Una grabación de SCREENS no se verificará 
adecuadamente, pues no hay ninguna forma de comprobar 
que todo está correcto salvo borrando la pantalla y volviendo 
a cargar la grabación. Para borrar la pantalla basta utilizar 
CES. No hay niguna necesidad de aplicar NEW a tu 
programa. 

La carga (LOAD) de una SCREENS es fascinante y no lo 
que esperarías. El orden en que se graba y cargan las líneas 
de pantalla no es sencillo, pero sigue una configuración muy 
definida. Pruébalo y mira lo que obtienes. 
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Cuando realizas la función PRINT no estableces diferencia 
alguna para el ordenador en lo que respecta al tipo de letras que 
utilizas. Emplea letras mayúsculas o minúsculas, según las 
necesites, para obtener el efecto deseado. Los niños, que están 
comenzando a leer correctamente, suelen preferir, sin embargo, 
las letras minúsculas por estar más acostumbrados a ellas. 
Selecciona tu tipo de impresión para que se adapte a las 
exigencias de quienes vayan a utilizar tu programa. 


Es indiferente con las variables 
Puedes mezclar tipos de letras para el mismo almacenamiento. 
El ordenador sólo detecta qué letra, y no qué tipo. 


10 INTPUT A 
20 PRINT a 


servirán igual. “A” y “a” significan el mismo almacenamiento. 


Si que importa cuando compruebas respuestas 

“SÍ”, “sí” y “Sí” son respuestas completamente distintas. Si al 
contestar a una pregunta alguien responde “SÍ” y la línea de 
comprobación lee: 


IF AS = “sí” THEN GO TO ... 
entonces “SÍ” se ignorará. Añade otra línea para captar a “SÍ”: 


IF AS = “sí” THEN GO TO ... 


IF AS = “SÍ” THEN GO TO de (mismo número de línea) 


Puedes ahorrar tiempo y espacio, no obstante, combinando 
estas líneas en una sola línea. Si (IF) la respuesta está en 
mayúsculas o (OR) en minúsculas, entonces (THEN) se 
verificará, por ello escribe: 
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IF AS = “si” OR AS = “SÍ” THEN 60 TO ... 
(SHIFT y U para OR) 


Ahora cualquier tipo de letras servirá. Si también deseas 
permitir una respuesta “Sí” tienes que incluirla en tu línea: 


IF AS = “sí” OR AS = “SÍ” OR AS = “Sí” 
THEN GO TO ... 


Encontrarás líneas de comprobación como éstas en la mayor 
parte de los programas en cassette. Son muy importantes si 
desconoces qué clase de letras utilizarán quienes lo ejecuten 
para teclear sus respuestas. 
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Una rutina es una sección de un programa que realiza una tarea 
particular. Una subrutina es una rutina que está almacenada 
separadamente del resto del programa en una parte diferente 
de la memoria. Envía el ordenador a una subrutina con una 
orden o comando GOSUB: 


100 GOSUB 2000 (0 cualquier otro número de línea) 


y después de haber procesado la subrutina, el ordenador vuelve 
a donde estaba en el programa con: 


2100 RETURN (o cualquier otro número de línea) 


Date cuenta de que no precisas indicarle a qué número de línea 
ha de retornar. Siempre vuelve (RETURN) a la línea después de 
la última orden GOSUB. Ello significa que puedes utilizar la 
misma subrutina una y otra vez en el mismo programa. El 
siguiente programa lo pone de manifiesto: 


10 PRINT “Hola” 

20 GOSUB 100 (palabra clave en H) 
30 PRINT “Cómo estás?” 

40 GOSUB 100 

50 PRINT “Adiós” 

68 GOSUB 100 

70 STOP 

100 BEEP .5,10 

110 BEEP .5,=10 

128 RETURN (palabra clave en Y) 


Introdúcelo por el teclado y ejecútalo. 


Mira STOP en la línea 70. Si no existiera, el programa 
proseguiría la ejecución en la subrutina y finalizaría con un 
RETURN sin informe de GOSUB. 

Si hubieras escrito este programa sin emplear GOSUB, 
habrías tenido que escribir las líneas BEEP tres veces. Cuanto 
más larga sea la rutina que deseas reutilizar, tantos más motivos 
tendrás para hacerlo. 

Puedes tener tantas subrutinas como quieras en un 
programa. Pónlas todas al final del programa principal, pero 
espacía los números de línea para que dispongas de espacio 
para modificarlas o para hacer adiciones si lo necesitas. Añade 
las siguientes líneas al programa anterior: 


25 GOSUB 200 
45 GOSUB 200 
65 GOSUB 200 
200 BEEP 1,-20 
210 BEEP 1,20 
220 RETURN 
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¿Qué es un número aleatorio? Es el número que se obtiene 
cuando tiras un dado, sacas una carta de la baraja o sacas un 
billete de lotería. Dicho de otro modo, es un número que 
obtienes por azar. El Spectrum produce sus propios números 
aleatorios. La palabra clave para esta función es RND (modo E 
en T). No confundas RND con RAND. Trabajaremos con RAND 
dentro de poco. 


Teclea esto: 


10 LET X = RND 
20 PRINT X 


y ejecútalo (RUN). 
El número que se imprimirá es un decimal largo entre 0 y 1. 
Añade: 
30 GO TO 10 
y procede a su ejecución (RUN). 


Observarás que todos los números que Spectrum proporciona 
están comprendidos entre 0 y 1 y que todos son diferenentes. 

Pero los números aleatorios del Spectrum no son solamente 
largos y diferentes, pues, de ser así, no tendrian mucho uso en 
la clase de cosas que querrás hacer. Podemos hacerlos mucho 
más útiles. Supongamos que deseas disponer de un dado; si 
multiplicamos nuestros números aleatorios por seis, variarán de 
0 a 6. Para comprobarlo cambia la línea 20 a la siguiente: 


20 PRINT X; TAB 12;Xx*6 
Ejecuta esa línea. ¿Qué obtienes ahora?. 


Esas largas cadenas de decimales ocupan mucho espacio y no 


son deseables. Prescindamos de ellas. INT (abreviatura de 
INTEGER-Entero) las recortará dejando solamente el número 
entero. 


Vuelve a cambiar la línea 20: 


20 PRINT X; TAB 12;Xx*6; TAB 24;INT (X*6) 
(modo E en R para INT) 


Ahora tendrás números aleatorios de O a 5. Para hacer que estén 
comprendidos entre 1 y 6, basta que añadamos 1. 


Cambia de nuevo la línea 20. Esta vez añade: 
..- ¿TAB 28; INT(Xx*6)+1 


y ahora tienes un dado electrónico computarizado. El programa 
DADO utiliza líneas como éstas. La próxima vez que quieras 
jugar a “serpientes y escaleras”, carga el programa DADO, o 
escribe tu propio programa, con el empleo del diagrama de flujo 
de la Figura 17. 


Figura 17 


¿Cuán aleatorio es?. 

Realmente, los números aleatorios del Spectrum no son 
aleatorios del todo. Siguen una ley recurrente. La serie se repite 
después de 65537. No es probable que ello importe, pero lo que 
sí importará es que siempre es la misma al principio y que todos 
lleguen a conocerla. Teclea estas dos líneas y verás lo que 
sucede (NEW primero). 


10 PRINT INT ( RND x* 10 ) 
20 GO TO 10 


Observarás los siguientes números impresos en la pantalla: 
0,074 ,7 ,2,1,2,1,6,0,6,9,5 3,0 1169/60 0,7 71. 


Aplica NEW a ese programa, vuelve a teclearlo y obtendrás la 
misma serie. Puedes evitarlo fácilmente con el empleo de 
RAND. Esta es la abreviatura de RANDOMIZE, y le dices al 
ordenador que comience su proceso en un lugar diferente cada 
vez. 


AÑADE: 
5 RAND (palabra clave en T) 


y mira la diferencia. 
Aplica NEW al programa y vuelve a teclearlo (con RAND). 
Ahora se pierde la secuencia repetida anterior. 


Redondeo de los números aleatorios 


Cuando utilizas INT, obtienes solamente el bit del número 
entero, con la parte decimal suprimida. INT siempre redondea 
por defecto, haciendo caso omiso de la magnitud de la parte 
decimal. 


INT 1.99999999999 será 1. 


Para obtener el número redondeado al número entero más 
próximo, utiliza esta clase de línea: 


PRINT INT (RND*10 +.5) 


que suma 0,5 al número aleatorio, antes de que se aplique INT 
en su redondeo. Este programa de tres líneas muestra cómo 
actúa: 
10 LET X = RND 
20 PRINT X;TAB 12; INT ( X *x10); TAB 24; INT 
(XxX * 10+ .5) 
30 GO TO 10 


Empleo de los números aleatorios 


Ya has visto una utilización de los números aleatorios en el 
juego de dado. A propósito, hay un problema algo intrigante al 
escribir un programa en el caso de tirar dos dados para obtener 
números entre 2 y 12. Para la solución de este problema mira el 
apartado de “Dado” al final de esta sección. 
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Cuentas 

En el primer libro de esta serie, aprendiste a escribir programas 
para calcular cuentas y a plantear (PRINT) cuentas para que las 
resolvieran tus amigos. Puedes utilizar RND para hacer que el 
Spectrum proporcione una gama indefinida de cuentas a 
plantear. El ordenador puede comprobar sus respuestas y 
corregirte si estás equivocado. Esto es, por supuesto, lo que 
hace el programa cuentas. En la Figura 18 tienes el diagrama de 
flujo correspondiente a dicho programa. 


Toma 2 números aleatorios, 
A y B Multiplícalos por 10 
lo por el número que 
quieras) y aplica INT 


PRINT Los números y 
el signo de la suma 


Prueba otra vez 


Figura 18 


El programa básico sigue siendo el mismo, cualquiera que sea el 
tipo de cuenta. Todo lo que se modifica son las instrucciones de 
PRINT (por las que el usuario conocerá qué clase de cuenta está 
haciendo) y la línea de comprobación. Esta será IFC =A+B. .. 
oIFC = A—B. . . o cualquier otra expresión de esta naturaleza. 

El programa se mejora mucho con la adición de tres bucles de 
contaje separados, como se indica en el diagrama de flujo de la 
Figura 19. 


PRINT 
Puntuación =( de entre S 


Comprobar 
respuesta 


Figura 19 


Un bucle permite varios pasos en cada cuenta. 
Antes de la línea INPUT LETG=0 
Después de la línea INPUT LETG=G+ 1 
Después de la línea de comprobación IF G = THEN ... 


Después de los tres, o de cuantos pueda elegir, el ordenador 
imprime (PRINT) la respuesta correcta y sugiere que el usuario 
pruebe con otra cuenta. 

Los otros dos bucles cuentan cuantas respuestas correctas 
(C por Correcta) y cuantas cuentas se han probado (I por 
Cuentas). Necesitarás abrir los almacenamientos para ello en 
algún lugar cerca del principio del programa: 


LET 1=0 
LET C =0 


e insertar líneas de “sumar uno” en los lugares adecuados: 


LET 1= 1 + 1 (después de cada nueva cuenta) 
LET C = C + 1 (después de cada respuesta correcta) 
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Variantes 
Puedes fijar el número de cuentas que cada uno tiene que hacer 
sustituyendo LET I= 0 y LETI =1+ 1 por un bucle del tipo 
FOR I = 1 to 10 (o cualquier otra magnitud). No tienes 
necesidad de preguntar ¿Otra cuenta? en esta variante, pero 
tendrás que darle a quien lo haga una posibilidad de ver las 
respuestas. Una línea de PAUSE debe desempeñar esta 
función. 


Decimales 

Escribe un programa que proporcione sumas decimales. Para 
transformar un decimal aleatorio (RND) en uno simple, has de 
utilizar esta fórmula: 


LET A = INT (RND * 100) / 10 


que actúa de esta forma: 


RND = 0.357924681 (oalgo diferente) 
RND * 100 = 35.7924681 
INT ( RND x*x 100) = 35 
INT ( RND * 100)/ 10 = 3.5 


si quieres dos cifras decimales, has de multiplicar por 1000 y 
dividir el ENTERO por 100. Para tres cifras decimales, debes 
mulplicar por 10000 y dividir por 1000. 


Adivinar un número 


¿Quién es el mejor en adivinar en tu grupo?. 

En la Figura 20 se muestra el diagrama de flujo para un juego 
de adivinanza. El ordenador obtiene un número aleatorio entre 
0 y 20. A continuación, el jugador trata de adivinar el número y 
se le dice si quedó demasiado alto o demasiado bajo o si acertó. 
El jugador puede proseguir su tarea de adivinar hasta que lo 
consiga. 
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START 


MUY PEQUEÑO 


no (Adebe ser igual a X) 


Bien hecho 
T=T+6 


no 
PRINT 
Promedio =T/N 


Figura 20 


Tres bucles cuentan el número de veces que se juega (N), el 
número de intentos de adivinanza para obtener un acierto (G) 

y el número total de intentos de adivinanza con acierto (T). Al 
final, el ordenador calcula el promedio de aciertos por veces 
jugadas. Prueba a hacer el programa para tal juego. En la Figura 
20a se da un programa de comprobación. 
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10 PRINT “Adivina el número” 

20 PRINT “Preparado, cuando quieras” 

30 PAUSE Q 

40 LETN=0 : LETT=0 

50 CLS 

60 LET X = INT ( RND * 10)+1 

70 LETN=N+1 

80 LET G =0 

90 INPUT “Adivina un número” ¿A 

100 LET G =G + 1 

110 IF A > X THEN PRINT ”“ Demasiado grande I”: 

GO TO 90 
120 IF A < X THEN PRINT “ Demasiado pequeño !”: 
GO TO 90 

130 PRINT A;” es correcto. Acertaste.” 
140 LET T=T+G6G 
150 INPUT “otra oportunidad ?”;A$ 
160 IF A$ = “sí” THEN GO TO 50 

170 IF AS “no” THEN GO TO 190 

180 INPUT “sí o no, por favor ”; A$ : GO TO 160 
190 PRINT “ Tu promedio fue ”;T/N 
200 STOP 


Figura 20a 


Date cuenta de que puedes mejorar la presentación de este 
juego con el empleo de líneas PRINT AT y INK con colores 
diferentes. Los BEEPs harán también que las respuestas del 
ordenador sean más divertidas. 

Y por qué no sustituir STOP en la línea 200 por “Alguien más 
para un juego?” ¿INPUT?. A continuación, enviarías al 
programa de nuevo a la línea 40 para el siguiente jugador. 


Dado 


Si quieres números aleatorios entre 2 y 12 (la gama de puntos 
que pueden obtenerse con dos dados), parecería evidente que 
lo que deseas es algo como lo siguiente: 


LET N = INT C(RND * 10 + .5)+2 


que proporciona un número aleatorio entre 0 y 10, lo redondea 
de modo que siga estando entre 0 y 10 y le suma 2 para que esté 
comprendido entre 2 y 12. 

Sin embargo, si lo hiciste así no conseguirás un juego de 
dados correcto, pues al tirar un par de dados es bastante más 
probable que obtengas una puntuación media (7) que una muy 
baja (2) o muy alta (12). Los motivos se explican con más detalle 
en el Apéndice D, pero esencialmente es porque el número 
obtenido es la suma de las puntuaciones de los dos dados. Para 
conseguir que el ordenador se comportara en esa misma forma, 
has de obtener dos números aleatorios (del 1 al 6) y sumarlos 
juntos. 


LET D1 = INT C(RND * 6)+1 (primer dado) 
LET D2 = INT (RND * 6)+1 (segundo dado) 
LET N = D1+D2 (suma de ambas puntuaciones) 


Puedes estar interesado en escribir un programa que 
proporcione números aleatorios del 2 al 12, como la “primera 
solución” anterior. Ejecuta el programa hasta que haya 
proporcionado unas decenas, o acaso centenares, de números. 
Lleva una cuenta de los números que consigues y compara con 
los resultados que obtienes al tirar dos dados, en el programa 
DADO. 
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Una de las cosas más importantes a tener en cuenta al concebir 
un programa es cerciorarse de que se trata de un usuario con 
“relaciones amistosas”. Ello quiere decir que tienes que 
asegurarte de que no saldrá mal simplemente porque el usuario 
pulse una tecla equivocada por error humano y que debes 
cerciorarte de que se diga al usuario lo que ha de esperarse y lo 
que está sucediendo. Lo que vamos a tratar ahora es de evitar 
que el programa se destruya debido a errores en las respuestas. 

En el apartado de “impresión de colores” había un programa 
que solicitaba al usuario escogiera los colores de INK y pantalla 
mediante la introducción de un número. Es probable que la 
pantalla aparezca como puedes ver en la Figura 21. 


 ¿Quécolor de pantalla te gustaría? 


Para negro Introduce O 
Para azul 
Para rojo 
- Para magenta 
- Paraverde 
Para cian 
Para amarillo 
- Para blanco 


Figura 21 


Ello va seguido por una línea INPUT A, siendo A el 
almacenamiento de números para el color. 
¿Qué sucede si el usuario responde 42? (¡menudo disparate!). 
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El ordenador responderá simplemente con un informe Invalid 
Colour” (color no válido) y se parará. 


Incluye una línea como la siguiente: 


IF A > 7 THEN INPUT “Entre M y 7 por favor "¡A : 
GO TO ... 


y ningún número mayor que 7 puede introducirse. 

Si el usuario introduce una letra o una palabra (podría 
responder “ROJO”, por ejemplo), el programa se parará con un 
informe Variable not found (variable no definida). 

Puedes evitar todo esto utilizando una variable de cadena: 


INPUT AS 


de modo que el ordenador aceptará cualquier INPUT. Ahora 
necesitas depurar todo salvo los números. Podemos hacerlo 
consiguiendo que el ordenador compruebe el CODIGO de 
caracteres de INPUT. Todos los caracteres tienen su propio 
número de código (CODE) especial, por el que le conoce el 
Spectrum. Estos códigos se indican al final en el Apéndice B. El 
comando “CODE AS encontrará el número de código del 
primer carácter, cualquiera que sea el almacenamiento de A$ en 
que esté. Teclea estas dos líneas y mira lo que sucede: 


10 INPUT AS 
20 PRINT CODE AS 


Prueba con INPUT: diferentes y comprueba los resultados con 
la lista de códigos. Observarás que los números tienen códigos 
entre 48 y 57. El código (CODE) 48 es el carácter 0. Los códigos 
de letras comienzan en 65, que es la A mayúscula. 

Incluye esta línea de comprobación: 


IF CODE A > 57 THEN INPUT “Número por favor”; A$ : 
GO. TO 
(modo El para CODE) 


y no permitirá que se utilicen letras. Puedes hacer esto, incluso 
más seguro, añadiendo otra línea: 


IF CODE A < 48 THEN INPUT “Número por favor”; A$ : 
GO: TO... 


Puedes combinar esto en una sola línea utilizando OR como 
hiciste cuando se comprueban mayúsculas OR (0) minúsculas: 


IF CODE A$ < 48 OR CODE A$ > 57 THEN INPUT 
“Número por favor ”;A$ : GO TO ... 


Ahora será rechazada cualquier cosa que no sea un número. 

Puedes combinar esto con la anterior línea de comprobación 
de números permitiendo solamente los códigos de los números 
que quieras. 


CODE 48 = Q 
CODE 49 = 1 
CODE 55 = 7 
por lo que: 
IF CODE A$ < 48 OR CODE AS > 55 THEN ..... 


suprime todos los caracteres no deseados. 


En la Figura 22 tienes al chip clasificando una línea 
IF. . OR. . .THEN. . . En este caso, el chip ha de imprimir un 
mensaje si se utiliza algo distinto a un número. 


52 no €£s Menor 

que 48 ni mayor 
que 57. 

No haré La impresion 


Figura 22 


Puedes resolver este problema de otra forma con el empleo de 
tu filtro de códigos para coger los caracteres que deseas en lugar 
de rechazar los que no deseas. La línea es: 


IF CODE A$ > 47 AND CODE AS < 58 THEN ... 
(SHIFT y Y para AND) 


64 no €s correcto, es Mayor 
que 47 pero no inferior a 58, 
No Lo pasaré 


Figura 23 


Solamente se admiten números que tengan códigos que sean 
mayores que 47 y (AND) menores que 58. 

En la Figura 23 tienes al chip clasificando una línea 
IF. . AND. . .THEN. . . Esta vez ha de pasar a (GO TO) otra 
línea si se utiliza un número. 


La realización de la prueba de la suma plantea un problema de 
poca importancia. 


10 PRINT “2 + 2 = 2 ” 

20 INPUT AS 

30 IF CODE A$ < 48 OR CODE A$ < 57 THEN INPUT 
“Número por favor ”;A$ : GO TO 30 

40 IF AS = 4 THEN... 


La línea 30 elimina todo lo que no sean números, pero 
lamentablemente la línea 40 no actuará. Puedes hacerle actuar 
poniendo el número entre comillas: 


40 IF AS = “4” THEN... 


porque una variable de cadena debe estar siempre entre 
comillas. Ello es correcto si sabes cuál va a ser la respuesta, pero 
si has estado utilizando números aleatorios tu línea de PRINT 
será similar a la siguiente: 


PRINT A;” + ”;B_ (en donde A y B eran números 
aleatorios) 


y la línea de comprobación necesita ser: 


IFC=A3+B 
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No puedes hacer esto: 
IF ($ =“A + B” 


pues en tal caso no actuará. 

Lo que puedes hacer, no obstante, es encontrar el valor 
(VALUE) del número en la cadena con el empleo del comando 
VAL y ponerle en un almacenamiento de números. Por 
consiguiente, en tu tipo de programa de sumas aleatorias, 
querrás algo como esto: 


INPUT C$ 

IF CODE C$ < 48 OR CODE C$ < 57 THEN INPUT 
“Número por favor ”C$ : GO TO... 

LET C = VAL C$ (modoE y para VAL) 
IFC=A<+8B THEN... 


Esto ha llevado la respuesta a un almacenamiento de cadenas 
resistente a la destrucción y a desplazarlo a través de un 
almacenamiento de números utilizable. Puedes, si así lo 
quieres, dejar la respuesta en el almacenamiento de cadenas, 
pero comprueba su valor cada vez que lo necesites: 


IF VAL C$ = A + B THEN... 


Ello ahorra un poco de espacio de memoria, pero si vas a utilizar 
ese número de INPUT varias veces en lo sucesivo, ha de 
transferirse a un almacenamiento de números. Es mucho más 
rápido teclear “A” que “VAL AS”. 

VAL calculará el valor de cualquier número entre comillas. 
Prueba lo siguiente: 


PRINT VAL “44” 
PRINT VAL “3x2” 
PRINT VAL “cuatro” 


Como ves, VAL solamente trabaja con números. 


10 
Planificación 
de programas 6 


Al principio del programa SONIDOS verás una pantalla como la 
que tienes en la Figura 24. Se te ofrece una elección de tres 
secciones a examinar y se te pide que respondas con un 
número. 


Figura 24 


Estas secciones comienzan el programa en las líneas 1000, 2000 
y 3000. Podrías esperar encontrar una serie de líneas de 
comprobación como las siguientes: 


IF A = 1 THEN GO TO 1000 
IFA 2 THEN GO TO 2000 
IF A = 3 THEN GO TO 3000 
(en donde A es el número objeto de tu respuesta) 


Sin embargo, no las encontrarás. Examina los números y verás 
que la respuesta 1 va a 1000, la 2 a 2000 y la 3 a 3000. Dicho de 
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La Figura 25 indica cuántas teclas del piano, blancas o negras, 
han de pulsarse para obtener desde el sonido de la nota “do” 
(C) a las demás notas de esa octava. 


Figura 25 


Esta es la serie de números que necesitamos para una escala en 
el Spectrum: 


O, 2, Sp Sy y 9, 11, 12 


Los saltos (intervalos) son los mismos para todas las escalas. La 
clave del “re” (D) proporciona estos números: 


2 L 6 7 9. 11 13 14 
D=2 de modo que:D+M D+2 D+4 D+5 D+7 D4+9 D+11 D+412 


El programa en la Figura 26 utiliza esta configuración de 
intervalos para ejecutar una escala en cualquier clave. INPUT K 
toma el número de la nota (tono). Introdúcelo y pruébalo con 
números diferentes. Recuerda que puedes llegar hasta —60. 


10 INPUT K 
20 BEEP .5, 
30 BEEP .5, 
40 BEEP .5, 
50 BEEP .5, 
60 BEEP .5, 
70 BEEP .5, 
80 BEEP .5, 
90 BEEP .5, 


ARARAARAAAAADZ= 
+++ ++++ 
2 20XxXUm€ 


MN 


Figura 26 


Recomendación de utilidad 

Cuando tengas muchas líneas similares a introducir por el 
teclado, como las líneas 20 a 90 en el anterior programa de 
escalas, teclea la primera (20) y será objeto de edición (EDIT). 
Cambia el número de línea (a 30) y modifica el resto de la línea 
para su adaptación. Introduce 30, aplica EDIT y repite. Con ello 
se puede ahorrar mucho tiempo, sobre todo en el caso de líneas 
largas, pero similares. 

Podrías desear introducir este programa de escalas en otro 
más grande que comience pidiendo al usuario que elija un tono 
(de forma análoga al programa de colores que pedía al usuario 
que eligiera los colores de pantalla y de INK. Puedes hacerlo de 
modo que el programa busque la letra de clave y luego clasifique 
el propio número. Empezarías de forma similar a la siguiente: 


10 INPUT ” Qué clave? ”;K$ 

20 1F K$= “C” THEN LET P = Q (P=tono de la nota 
musical) 

30 IF K$= “Cf” THEN LET P = 1 (SHIFT 3 para %) 


No obstante, encontrarás más fácil escribir un programa que 
imprima una pantalla como la que tienes en la Figura 27, de 
modo que el usuario introduzca el número de la clave en lugar 
de la letra. 


Introduce el número eras 
a su clave 


Para C 
Para C* o Db 


Para D 
Para D* o Eb 
Para E 
Para F 
Para F* o Gb 

. Para G 
Para G* o Ab 
Para A 
Para A* o Bb 
Para B. ! 


2000 JO0U0PRUWUN>Sa 


— —» 


Figura 27 
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Melodías 

En lugar de tener tu serie de BEEPs como una escala, pónlos en 
una melodía para quienes sean aficionados al canto. A 
continuación, puedes ajustar la clave para adaptarse a quien 
canta. Empieza con una pantalla “Elige una clave”. 

Cuando estés escribiendo melodías has de tener especial 
cuidado con las longitudes (duración) de las notas, así como con 
sus tonos. La configuración es bastante simple y se adapta bien 
a cualquier melodía por dificil que sea. 


lsemibreve (O =2mínimas d d 
1 mínima = 2 semimínimas d dl 
1 semimínima el =2corcheas d d 
1 corchea el =2semicorcheas d 


(1 semibreve = 2 mínimas = 4 semimínimas = 8 corcheas = 16 
semicorcheas). 


Si has decidido una longitud de un segundo para una mínima 
(y ello es bastante lento) será BEEP .5, . . . para semimínimas; 
BEEP .25. . . para corcheas; BEEP .125, . . . para semicorcheas. 
Si tienes problemas para escribir melodías en el órgano BEEP 
del Spectrum, podrás encontrar de utilidad numerar cada nota 
y conseguir que el ordenador imprima el número, tiempo y tono 
de cada nota a medida que se ejecute. Ello facilita la 
identificación de las “notas erráticas' desagradables. 


El teclado del órgano 
El teclado en el órgano de sonidos actúa así: 


10 IF INKEY$<> “ ” THEN GO TO 10 
20 IF INKEYS$ = ”“ ” THEN GO TO 20 


— la rutina de “finger on-finger off” (mano encima-mano fuera) 
que encontraste en el programa AMABLE 


30 GO TO 10* CODE INKEYS 


Examina el código (CODE) de carácter de la tecla pulsada, 


multiplica el número de código por 10 y pasa a ese número de 
línea. Por consiguiente, si se pulsa la tecla 1, el código (CODE) 
es 48 para 1 y 10* 48 es 480. Esta es la línea 480: 


480 BEEP 1,0: GO TO 10 


Esta ejecuta un segundo de la nota C (“do”) media y luego 
retorna a la línea 10 para esperar la siguiente nota. 

Los números de línea son realmente diferentes en el 
programa SONIDOS y el programa obtiene también las notas, 
pero el principio es el mismo. Puedes ampliar el ámbito de tu 
teclado utilizando más teclas. El problema está, pues, en 
recordar qué tecla corresponde a qué nota. He aquí algunas 
ideas para probarlo. 


Melodías de palabras 

Comienza tu teclado en a y llega hasta z. a podría ejecutar la 
nota C (“do”) una octava por debajo de la C media. El código de 
la letra es 97, por lo que: 


970 BEEP 1, —12 


y z (el código de la z es 122) te proporciona la nota C% (“do” 
sostenido) una octava por encima de la C media: 


1220 BEEP 1,13 


Deletrea ahora una palabra y ejecutará una melodía. Si fuera 
demasiado lento para tu gusto, acorta los tiempos de BEEP. 

Mira si tus amigos pueden reconocer palabras escuchando la 
música. La Figura 28 puede ayudarte a elaborar tu programa. 
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Letra Código Numero de 

(CODE) tono € 
a 97 -12 CA orD b 
b 98 —11 D 
c 99 10 DA orE b 
d 100 -9 E 
e 101 -8 F 
f 102 po FA orG b 
g 103 -6 E 
h 104 -5 GkorA b 
i 105 Y A 
106 -3 AtorB b 
k 107 Y B 
1 108 1 € 
m 109 0 media CkorD b 
n 110 1 D 
o 111 2 D*orE b 
p 112 3 E 
g 113 4 F 
r 114 5 FA or G b 
s 115 6 G 
t 116 7 G+*orA b 
u 117 8 A 
v 118 9 AtorB b 
w 119 10 B 
x 120 11 E 
y 121 12 CkorD b 
z 122 13 


Figura 28 


El órgano de cuatro octavas 

Escribe tu programa de modo que cada fila de teclas ejecute una 
octava diferente, pero siempre en el mismo orden. Mira la 
Figura 29. Date cuenta de que sólo necesitas siete teclas de cada 
fila. Este teclado es bastante fácil de tocar, pero, habida cuenta 
de que los códigos de las letras están todos “embrollados”, 
habrás de tener cuidado en obtener la numeración de líneas 
correcta en tu programa. 


52 


0 D E F G A B 
na 00 OA c>-- 


D 
a 100000002, 


E F G A B 


D 
3 00000 0ao-» 


= B 
El Ed NU MEE] 0-2 


Figura 29 


Vibrato 

Puedes volver a escribir tu programa para obtener un efecto de 
vibrato bastante agradable. Ello significa que las notas parecen 
“bambolearse”. Cambia los tiempos de BEEP a una décima (.1) 
de segundo y modifica las dos primeras líneas, las de INKEY$: 


10 IF INKEYS <> ” ” THEN GO TO 30 
20 GO TO 10 
30 GO TO 10 * CODE INKEYS 


En el primer tipo de teclado, hubieras tenido que retirar tu dedo 
para permitir que el ordenador pase a encontrar y ejecutar la 
nota correcta. Ello no sucede en este caso. Cuando pulsas una 
tecla, la línea 10 envía el ordenador a la línea 30, para clasificar 
los números de línea. Sale y aplica BEEP a la que es correcta y 
retorna a la línea 10. A continuación vuelve a salir de forma 
directa y hace BEEP de nuevo. Proseguirá aplicando la función 
BEEP a la misma nota en tanto que mantengas tu dedo sobre la 
tecla. Cuando retires tu dedo, la línea 20 hace que el ordenador 
vuelva a la línea 10 para esperar a la siguiente tecla. 

Prueba esto con diferentes longitudes, o duraciones, de 
BEEPS y mira la clase de efectos que consigues. 


El zumbador de Morse 


En la Figura 30 tienes el código Morse para su empleo con el 
zumbador en el programa SONIDOS. Dicho zumbador actúa de 
forma muy similar al teclado de órgano. Una rutina de “tecla 
pulsada-tecla sin pulsar' escoge la tecla. Va seguida por: 


30 PRINT INKEYS ; 


con el punto y coma para hacer que imprima a través de la 
pantalla como una máquina de escribir. 


40 GO TO 10 * CODE INKEYS 
y luego envía el ordenador a la línea de 'telegrafiar” adecuada. 


Un punto es: BEEP .2,0 
Una raya es: BEEP .4,0 


LR A E L ss Nao 
LS D =owws > sta 5 
oo AAA GA y QA 

- Dis ¡A ¡AA 
a E”, 11 AE A 
6) == Es N-_ W.__ 
7 == ¡EA ¿O A y, FA 
$ HL... Ple y PP 
TD == Rm Dim Li 
0 ===. 

Figura 30 


Si pulsas A (este programa trabaja con mayúsculas), CODE A 
es 65: 


650 BEEP.2,0:BEEP .4,0: GO TO 10 


que proporciona BEEPSs de puntos y rayas y retorna a la línea 
10 para la siguiente letra. 


Los números de línea en el programa real son algo diferentes. 
Para ver esta sección, carga (LOAD) el programa SONIDOS y 
lista (LIST) 3000. Las líneas de “telegrafiar' comienzan en 2480 
(3000 + 480 = 10* CODE 0). Las líneas de esta clase para las 
letras comienzan en 3650 (3000 + 650 = 10* CODE A). 


Alternativas 

Incluye instrucciones en las líneas anteriores para imprimir los 
puntos y las rayas en Morse. 

La línea “A” será ahora como ésta: 


650 PRINT “._”:BEEP .2,0: BEEP .4,0 :GO TO 10 


Date cuenta que, en este caso, no hay ningún punto y coma 
después del mensaje de Morse. Ello significa que cada letra, y 
sus puntos y rayas, aparecerá en una línea separada. La pantalla 
aparecerá como puedes ver en la Figura 31. 


A 
M 
0 
R >. 
S 
E. 
M 
E 
S 
Ss. 
A. 
6 
E 


Figura 31 


Cuando seas un experto en Morse . .. 
No necesitarás andar tecleando letras para obtener sus puntos y 
rayas. Podrías hacerlo por tí mismo. Basta establecer una tecla 
para un punto y otra una raya. 

Mostramos el diagrama de flujo para un sencillo zambador 
Morse. 


Comprueba tu programa con respecto a la Figura 31a. 


READ INKEY $ 


Figura 31a 


10 IF INKEYS < > “” THEN GO TO 10 

20 IF INKEYS = “” THEN GO TO 20 

30 IF INKEYS “1” THEN BEEP .2,0 : GO TO 10 
40 IF INKEYS = “0” THEN BEEP .4,0 : GO TO 10 


Se utiliza 1 para un punto y Q para una raya. 


Efectos sonoros: Bucles 


Este programa ejecuta la gama completa de BEEPs del 
Spectrum: 


10 FOR P = —60 TO 69 

20 BEEP 1,P 

30 NEXT P 
y se tarda poco más de dos minutos en hacerlo. Puedes 
acelerarlo acortando el tiempo de BEEP con: 


20 BEEP .1,P (una décima de segundo) 
que reduce el tiempo hasta unos 13 segundos, o con: 


20 BEEP .01,P (una centésima de segundo) 


que reduce el tiempo hasta poco más de un segundo en total. 
Pero esta vez los BEEPS son tan cortos que son poco más que 
chasquidos. 

También puedes disminuir la duración mediante un bucle con 
el empleo de STEP, de modo que se omitan algunas de las 
notas. Pon la duración de BEEP en una décima y cambia la línea 
10 a ésta: 


10 FOR P = —60 TO 69 STEP 10 
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Será ahora: BEEP -60, -50, -40, -—30... 
30, 40, 50, 60. 


STEP puede ser del tamaño que quieras y también volverá hacia 
atrás: 


10 FOR P = 69 TO —60 STEP —1 


proporciona la gama completa de arriba a abajo. 
También puedes establecer la variable STEP e incluirla en un 
bucle. 


5 FOR S = 1 TO 10 

10 FOR P = —60 TO 69 STEP S 
20 BEEP .1,P 

30 NEXT P 

40 NEXT S 


Ahora consigues un salto más grande entre notas cada vez que 
recorres el bucle. El comienzo del programa SONIDOS utiliza 
bucles como éste, aunque allí el bucle actúa también sobre el 
color de pantalla. 


Pequeños STEPs 

Si haces que STEP sea inferior a 1, obtendrás un cambio más 
gradual del tono. Esta rutina suena de forma muy parecida a 
cuando se llena una botella: 


1010 FOR P = 10 TO 40 STEP .2 
1020 BEEP .01,P 
1030 NEXT P 


Modifica estas líneas para que se adapte a tus propias botellas!. 
Cambia la gama de tonos (no tiene por qué ser de 10 a 40). 
Cambia la magnitud de STEP o la duración de BEEP. Pon una 
breve pausa (PAUSE) en la línea 1025, por lo que el efecto será 
más bien de gotas separadas. 


Sirena ululante 

No puedes obtener un efecto de sirena contínuo en el Spectrum, 
porque cada BEEP es por separado. El programa de la Figura 32 
producirá un efecto de sirena “ululante”. Cambia la gama y la 
duración de STEP y BEEP para obtener el sonido que quieras. 


1000 “SIRENA” 
1010 FOR N = 1 TO 5 (el Número de veces que lo hará) 
1020 FOR P = Q TO 30 STEP 3 
1030 BEEP .02,P 

1040 NEXT P 

1050 FOR P = 30 TO Q STEP —1 
1060 BEEP .02,P 

1070 NEXT P 

1080 NEXT N 


(da el sonido “alto”) 


lía el sonido “bajo”) 


Figura 32 


Elevación del tono de melodías 
Produce un efecto interesante. Ejecuta unas pocas notas una y 
otra vez, siempre en tono ascendente. 


1100 REM “ELEVADOR” 

1110 FOR P = —20 TO 40M STEP 5 
1120 BEEP .1 
1130 BEEP .1 
1140 BEEP .1, 
1150 BEEP .1 
1160 NEXT P 


Prueba lo mismo con diferentes configuraciones de notas. Baja 
los tonos en lugar de subirlos. 


Reutilización de los efectos sonoros 


Habrás observado cómo las rutinas de efectos sonoros 
anteriores comenzaban en 1000 y en 1100, más bien que en la 
línea 10 habitual. 

Cuando hayas grabado (SAVE) un programa en cinta, puedes 
volverlo a introducir en la memoria del ordenador de dos 
maneras distintas. 

LOAD (carga) borra cualquier programa que esté en la 
memoria y lo sustituyes por el programa en cinta. 

MERGE deja el programa existente en la memoria del 
ordenador y añade líneas suplementarias desde la cinta, 
fusionando (MERGING) los programas almacenados y en cinta. 


Si una línea en la cinta y en la memoria tienen el mismo 
número, la de la cinta eliminará a la de la memoria. Cualquier 
rutina que pudieras querer reutilizar, como efectos sonoros, 
debe numerarse de modo que sea diferente de los programas 
que pueda querer fusionar. La Figura 33 indica el efecto de 
MERGE. 


Elaboración de una biblioteca de efectos sonoros 

Cuando encuentres un efecto que te guste, grábalo (SAVE), 
pero vuelve a numerarlo de modo que sea diferente a cualquier 
otra rutina de efectos sonoros y pónle un título que te haga 
recordarlo (los títulos pueden ser cualquier combinación de 
caracteres, hasta un máximo de diez). Lleva un registro de tus 
rutinas en cinta con un catálogo como éste: 


1000 a 1080 botellas -— hace un ruido de llenado de 
botellas 

1100 a 1160 reforzador — melodías de tonos in crescendo 
1200 a 1300 bomba — ¿bomba cayendo? — un poco ululante 
1400 a 1600 Reina — cuatro primeros compases del “Dios 
salve a la Reina” 


No tendrás necesidad de escribir los programas, aunque podría 
serte de utilidad. Graba (SAVE) tu rutina de efectos sonoros en 
la manera habitual y haz la fusión (MERGE) en otros programas 
en la misma forma que harías la carga (LOAD). 

En cualquier punto mientras estés escribiendo un programa, 
teclea (sin número de línea, por supuesto): 


(modo E, SHIFT y luego T) 
MERGE “botellas” (o cualquier otra cosa) y ENTER. 


Después de haber realizado la fusión, compruébala mediante 
listado y luego añade una línea RETURN. Tu efecto sonoro es, 
ahora, una subrutina del programa en el ordenador. 

Lo que es cierto para rutinas de efectos sonoros lo es, por 
supuesto, para cualquier rutina. Cuando hayas tardado mucho 
tiempo en elaborar una rutina particular para las funciones de 
comprobar, clasificar, dibujar o cualquier otra, grábala, haz el 
catálogo correspondiente y tenla preparada para su fusión 
posterior en otros programas. 
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Números de línea diferentes Números de línea solapados 
EN MEMORIA DESPUES DE 'MERGE' EN MEMORIA DESPUES DE 'MERGE' 
Pp 10==|] 10 10 = 
=== 20 20 == 20 === 
==> 50 50 === 50 === 
===> 60 60: ===> 60 === 
A 70= 70 =———| NUEvOS| 7 ——— 
==> 80 80 === Ae == 
=== 90 90. === | 90 —= 
=== 100 ANTIGUOS | 100. === Y NOD: ===== 
1120 === 
2 1130 == 
. 150 ===>= 
:» antiguas líneas 
A 80a110 
MERGE ”* perdidas 
satisfactorio | 
Figura 33a Figura 33b 


El único problema que se te puede plantear cuando realices la 
fusión de programas es cuando tengas programas largos en 
cinta o en la memoria y no haya suficente espacio para ambos (el 
total tendría que ser de unas 400 líneas o más). Al prinicpio de 
MERGE, el ordenador comprueba a ver si hay espacio para que 
lo ocupe el programa en cinta. Si no hay suficiente espacio, 
obtendrá un mensaje de informe 'Out of Memory” (fuera de 
memoria). 

Haz una anotación en tu catálogo de cuanto espacio ocupan 
las rutinas más largas. Puedes calcular el “gasto” de memoria de 
un programa con el empleo de lo siguiente: 


PRINT 8760 — ((PEEK 23730 + 256*PEEK 23731) — 
(PEEK 23653 + 256* PEEK 23654)) 


8760 bytes es la capacidad de que dispones cuando se conecta el 
ordenador por primera vez. Los PEEKs entre paréntesis 
determinan cuanto queda. Resta este resultado del valor inicial 
y obtendrás el “gasto” de tu programa y ello es lo que imprime 
esta línea. 


Vuelve a utilizar la misma expresión PEEK cuando quieras 
saber si hay espacio en la memoria para realizar la fusión 
(MERGE) en otra rutina: 


(PEEK 23730 +256* PEEK 23731 ) — 
( PEEK 23653 + 256* PEEK 23654) 


Debes tener, como mínimo, tanto espacio en memoria como la 
longitud de tu rutina más algo extra para espacio de trabajo. 

Si necesitas crear un poco más de espacio de memoria, 
puedes conseguirlo reduciendo las líneas de REM y ejecutando 
juntas líneas cortas. Mira el apartado “Out of Memory” (fuera de 
memoria) en el Apéndice A. 
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12 
Una lección de lectura 


READ y DATA 


Supongamos que quisieras que el ordenador imprimiera un 
“Hola” amistoso para todos tus amigos. Podrás hacerlo de esta 
forma: 


18 PRINT “Hola Guillermo” 
20 PRINT “Hola Susana” 
30 PRINT “Hola Luis” 

40 PRINT “Hola María” 

5% PRINT “Hola Antonio” 
60 PRINT .......+ 


Tendrás tantas líneas como amigos tuvieras presentes. 
También podrías hacerlo de esta forma: 


10 INPUT AS 
20 PRINT “Hola ”;AS$ 
30 GO TO 10 


Solamente tres líneas, pero tendrías que sentarte para ir 
introduciendo todos los nombres. 
Veamos una forma más cómoda: 


10 READ A$ (modoE A para READ) 

20 PRINT “Hola ”;AS 

30 GO TO 10 

40 DATA “Guillermo”, “Susana”, “Luis”, “María”, 
“Antonio” (modo ED para DATA) 


La línea 10 le dice al ordenador que salga pasando a la lista de 
DATA y lea (READ) el primer nombre que encuentre. Este 
nombre se introduce en el almacenamiento de A$ y se imprime 
en la línea 20. La siguiente vez pasa a la lista de DATA y coge el 
siguiente nombre en la lista y lo introduce en el almacenamiento 
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Figura 35 


de Af. Y así sucesivamente se van cogiendo todos los nombres. 
La Figura 34 muestra al chip trabajando con la lectura del 
contenido de su fichero de datos. En ese preciso momento está 
leyendo el nombre de Susana. Cuando haya acabado, lo 
devolverá al lugar de almacenamiento. Puedes observar el 
señalizador en la mano derecha “superior' del chip. Pondrá 
dicha indicación en la tarjeta después del nombre de Susana, de 
modo que sepa en donde leer (READ) en la próxima ocasión. 


Figura 34 


En la Figura 35, tienes una vista en primer plano del cajón del 
fichero de DATA (datos). Observa la marca que está ahora en la 
tarjeta de Luis. Esta es la siguiente que leerá el chip. 
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Teclea el programa de “Hola' y pon los nombres de tus amigos 
en la línea de DATA. Si quieres introducir muchos nombres, 
has de emplear varias líneas de DATA: 


40 DATA “Guillermo”,”S...” 
50 DATA “Margarita”,“Antonio...” 
60 DATA “Martínez Ruiz”,“Sánchez ...” 


24M DATA “Adán”,“Eva”, ... 


Puedes tener tantas líneas de DATA como quieras y estas líneas 
pueden tener la longitud que se requiera. Haz líneas para 
satisfacer tus necesidades y hazlas lo más cortas posible para 
facilitar la edición correctora y su modificación. 

Cerciórate de que pusiste entre comillas todos los nombres en 
la lista de DATA y comas entre ellos. 

Cuando ejecutes tu programa, te encontrarás con que 
finalmente se parará con un mensaje de informe “Out of DATA”. 
Si tus líneas de READ formaran parte de un programa más 
largo, dicha interrupción sería irritante. Puedes evitarlo 
poniendo la línea de READ en un bucle FOR. . NEXT. .. , de 
modo que sólo trate de leer (READ) tantos nombres como haya 
en la lista de DATA. 

Vuelve a escribir tu programa para que quede como sigue: 


5 FOR N = 1 TO 5 (para cinco amigos) 
10 READ AS 
20 PRINT “Hola ”;A$ 
30 NEXT N 
100 DATA “Guillermo”,“Susana”,... 


Date cuenta de que el número de línea de DATA se ha cambiado 
a 100. Ello se hace para que podamos insertar algo más de 
programa. DATA puede situarse, en su totalidad, en las últimas 
líneas de tus programas, con lo que se facilita la búsqueda y la 
alteración correspondiente. Podrías hacer nuevos amigos o 
¡reñir con los antiguos!. 

Habiendo dicho “Hola' a todos tus amigos, ahora puedes 
decirles “Adios”. Para ello, añade otro bucle: 


40 FOR N = 1 TO 5 (0 cualquier otro número) 
50 READ AS 
70 NEXT N 


Ejecuta (RUN) este programa y verás que no actúa. El 
señalizador en el fichero de DATA ha llegado a la última tarjeta, 
y no se ha dejado nada para que lea (READ) el ordenador. 
Necesita hacerle retroceder al principio, de modo que todas las 
tarjetas puedan volverse a leer. 

Añade esta línea: 


35 RESTORE (modoES) 


Ahora cuando la ejecutes, debes tener “Holas” para todos tus 
amigos, seguidos por “Adios”. Puedes utilizar los mismos datos 
(DATA) tantas veces como quieras, en tanto que desplaces el 
señalizador al principio de la lista con una orden (comando) 
RESTORE. 

También puedes leer (READ) más de una cosa a la vez. 
Cambia las líneas 10 y 20 a las siguientes: 


10 READ A$, BS (observa la coma intermedia) 
20 PRINT “Hola ”¿A$; ” y ”;B$ 


Necesitarás un número par de amigos. No olvides dividir por 2 
el número en el bucle. Haz algo similar con las líneas 50 y 60: 


50 READ A$, B$ 
60 PRINT “Adios ”;¿B$; ” y “¡AS 


e imprimirá los nombres en orden inverso al de la línea de 
“Adios'. También puedes leer (READ) números. Para ello utiliza 
almacenamientos (ficheros) de números. 


¿Qué hace este programa? 
10 FOR N = 1 TO 8 
20 READ P 
30 BEEP .5,P 
40M NEXT N 

50 DATA 0,2,4,5,7,9,11,12 
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¿Qué te parece esto? 
10 FOR N = 1 TO 8 
20 READ T,P (eligiendo Tiempo y Pitch — tono) 
30 BEEP T,P 
40 NEXT N 
50 DATA .3,0,.9,-3,.3,-3,.3,2 
60 DATA .3,0,.6,9,.6,9,1.2,5 (comprobar estos valores 
detenidamente) 


¿No es más fácil que escribir muchas líneas BEEP?. También 
utiliza mucha menos memoria. 

En el primer libro de esta serie estudiaste un programa que 
planteaba una serie de sumas (establecidas por tí mismo en 
lugar de números aleatorios) y luego comprobaba las 
respuestas. Puedes hacer esa clase de programa mucho más 
fácil con el empleo de READ y de DATA. La Figura 36 muestra 
un diagrama de flujo para tal programa y en la Figura 36a se 
presenta un programa de comprobación para el caso de que 
tengas dificultades. 

El programa de comprobación es realmente básico. Sin duda 
te gustaría añadirle más comentarios y mejorar la disposición 
general con el empleo de las órdenes PRINT AT. .., TAB y 
INK. 


READ A y B 


Figura 36 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


FOR N = 1 TO 5 
READ A,B 
PRINTA 7 “+ "5B3" = ? 


LETG=0 

INPUT C 

PRINT C 

LETG=6G+1 

IF C =A + B THEN GO TO 110 


IF G = 3 THEN GO TO 120 
GO TO 50 

PRINT “Bien hecho” 

PRINT “Prueba otra” 

NEXT N 

DATA 1,1,2,2,3,3,4,4,143,2476 


67 


13 
DIByjo 


Entre las muchas características útiles del Spectrum destacan los 
gráficos de alta resolución, lo que significa su aptitud para 
trazar finas líneas, curvas y círculos. Los comandos PLOT y 
DRAW te permiten dibujar líneas delgadas y precisas. 

Ya sabes como imprimir letras, números o formas de gráficos 
en diferentes lugares de la pantalla utilizando números de 
líneas y de columnas como coordenadas (mira los Capítulos 19 y 
20 del primer libro de esta serie. PLOT y DRAW actúan también 
sobre un sistema de coordenadas, aunque de naturaleza 
diferente. Ello se muestra en el programa PLOTTER. Examínalo 
y luego pasa a la retícula de trazado al final del libro antes de 
seguir adelante. 

Observa cómo los números comienzan desde la parte inferior 
izquierda. Los números horizontales a lo largo de la parte 
inferior (denominados las coordenadas X) van desde 0 a 255. 

Los números verticales de valor creciente en el lado izquierdo 
son las coordenadas Y que varían desde 0 a 175. 

Todo punto de la pantalla tiene una dirección de coordanada. 
Esta dirección proporciona primero la coordenada X y luego la 
Y. 255,0' es, así, la esquina inferior derecha y “0, 175' es la 
superior izquierda. *127,87' es aproximadamente la parte media 
de la pantalla. Para colocar un punto de INK en un determinado 
punto de la pantalla, utilizamos la orden PLOT (palabra clave 
en Q). 


PLOT 225,0 
Número de la Número de la parte lateral 
parte inferior (coordenada Y) 


(coordenada X) 
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Haz el trazado correspondiente y luego intenta efectuar algunos 
propios: 


255,175 127,87 100,100 0,0 1,0 2,0 3,0 


Los cuatro últimos pares de números deben indicar cuán 
próximos están los puntos. Cuando consideres que has 
conseguido dominar esta representación, prueba el juego de 
trazado PLOT en el programa PLOTTER (Trazador). 


Líneas 1: Con bucle 
Si trazas (PLOT) una serie de puntos: 


10 PLOT 0,0 
20 PLOT 1 
30 PLOT 2 
40 PLOT 3, 
50 PLOT 4 


100 PLOT 9,0 


se unirán y constituirán una línea. No tendrás que devanarte los 
sesos con este programa, pues sabes que cualquier serie de 
números puede obtenerse con un bucle. 


10 FOR N = Q TO 10 
20 PLOT N,Q 
30 NEXT N 


te proporciona una pequeña línea a través de la parte inferior 
izquierda. Cambia la línea 10 a: 


10 FOR N = 1 TO 100 
20 PLOT 0,N 
30 NEXT N 


y tendrás una línea qe sube por la pantalla desde 0,1 a 0,100. 

Haz unas pocas más con una diversidad de números. ¿Qué 
necesitarías para obtener una pantalla como la que puedes ver 
en la Figura 37?. 


Figura 37 


Líneas 2: Con la función de dibujo DRAW 


¿Has asimilado la modalidad de dibujo con líneas de bucles?. 
Bien. Ahora has de olvidarlo durante un rato. 

Veamos otra manera de trazar líneas que suele ser de más 
utilidad. En la tecla W encontrarás la palabra clave DRAW. Ella 
te permite dibujar (DRAW) una línea desde un punto a otro. 
Echa un vistazo al programa PLOTTER en la sección sobre 
líneas. Verás que para trazar una línea debes fijar primero un 
punto de partida (utilizando normalmente la orden PLOT) y 
luego has de decirle al ordenador cuán lejos a izquierda o a 
derecha, y arriba o abajo quieres que llegue la línea. Esta distancia 
se mide en pixels, o puntos. Un pixel es un punto de INK en la 
pantalla. Lo representado en la Figura 38 fue dibujado 
mediante: 


Figura 38 


10 PLOT 100,50 
20 DRAW 50,0 


desplazamiento horizontal Desplazamiento vertical 


a izquierda o a derecha arriba o abajo 


Utiliza números positivos para los desplazamientos a la 
derecha y hacia arriba y números negativos para desplazamientos 
a izquierda y hacia abajo. 


La Figura 39 se obtuvo a partir de estas líneas: 


10 PLOT 50, 100 
20 DRAW 0,—50 


70 | 


en donde la línea se trazó en una distancia de 50 puntos hacia 
abajo. 

La Figura 40 muestra los números de trazado necesarios para ir 
50 puntos a la izquierda, a la derecha, arriba o abajo, desde 
cualquier punto. 

Recuerda, los números de trazado (DRAWING) no son 
coordenadas. Son medidas de movimiento (o vectores, siendo 
matemáticamente correcto). No importa en donde empieces. Lo 
que importa es el desplazamiento y no la dirección en donde 
finalizas. 

Realmente, sí importa en dónde empiezas, pues si lo haces 
demasiado próximo a un borde e intentas dibujar fuera de la 
pantalla, obtendrás un informe “Integer our of range” (entero 
fuera del margen). El juego LINE (línea) en el programa 
PLOTTER (Trazado) tiene una comprobación incorporada para 
impedir lo anterior y para comunicarte si te estás saliendo de la 
pantalla. 


La Figura 41 muestra cómo puedes combinar desplazamientos 
horizontales y verticales para obtener líneas diagonales. 
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50 a la derecha 


a la 


100 a la derecha 80 izquierda 


50 Arriba 
50 hacia abajo 
60 hacia abajo 


10 
20 
30 
40 
50 


10 
20 
30 
40 
50 
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Figura 41 


PLOT 
DRAW 
DRAW 
DRAW 
DRAW 


PLOT 
DRAW 
DRAW 
DRAW 
DRAW 


Dibujo continuo 


Después de la primera instrucción DRAW, puedes volvera 
dibujar. La siguiente línea comienza en donde terminó la 
última. 


Este programa proporciona el cuadrado de la Figura 42: 


20,50 

100,0 (línea A) 
0,100 (línea B) 
—100,0 (línea C) 
0,-100 (línea D) 


y dibuja el rombo el programa siguiente: 


200,50 

50,50 (línea E) 
50,50 (línea EF) 
-50,-50 (línea G) 
50,50 (línea H) 


Prueba a dibujar la punta de flecha de la Figura 43. La Figura 43a 
es un progama de comprobación. 


Figura 42 Figura 43 


Experimenta con más líneas y figuras trazadas por tí mismo y 
cuando estés familiarizado con estos trazados, prueba el juego 
de “líneas' en el programa PLOTTER (Trazador). 


10 PLOT 100,50 

20 DRAW 0,20 (línea A) 
30 DRAW 20,0 (línea B) 

40 DRAW —25,50 (línea C) 
50 DRAW —25,58 (línea D) 
60 DRAW 20,0 (línea E) 

70 DRAW 0,-20 (línea F) 


Figura 43a 


Curvas 


Mira primero la sección de “Curvas” del programa PLOTTER. 
Verás que las curvas son simplemente líneas trazadas con un 
codo o inflexión. La magnitud del codo está controlada por un 
tercer número que dice al ordenador qué ángulo debe girar. Las 
matemáticas en las que se basa lo anterior son algo complicadas 
y no nos interesa al nivel de nuestra exposición. 

Por encima de la tecla M verás una letra “pi” verde (modo E). 
Probablemente ya te hayas encontrado esta letra griega en tus 
estudios de matemáticas, sobre todo en los cálculos 
relacionados con el círculo. La utilizaremos con nuestras curvas. 


DRAW 100,0,PI 


comunica al ordenador que dibuje una línea que finalice 100 
puntos a la derecha y que trace un semicírculo (ve Figura 44). 


Figura 44 Figura 45 


DRAW 100,0,—PI (Pl negativa) 


Dibuja la misma línea pero con el semicírculo con su parte 
convexa arriba (ver Figura 45). 


Una “pi' normal (positiva) barre la curva a la derecha. 
Una 'pi' negativa lo hace a la izquierda. 


Figura 46 
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Aplana tus curvas dividiendo la Pl: 
DRAW 100,0,P1/2 
proporociona la curva suavizada de la Figura 46a. 


Cuanto mayor sea el número divisor, tanto más se aplanará la 
curva: 


DRAW 100,0,P1/8 


da lugar a la línea casi plana de la Figure 46b. 

Las líneas curvadas pueden ir en cualquier dirección, lo mismo 
que pueden hacerlo las líneas rectas. Prueba a dibujar varias 
curvas, con desplazamientos normales y negativos, Pls 
positivas y negativas y Pls divididas por distintos números. 
¿Cuán grande ha de ser el divisor de PI para obtener una línea 
recta?. ¿Qué sucede si multiplicas Pl?. 


Te darás cuenta de que ahorrarás una gran cantidad de tiempo 
haciendo tus dibujos primero en papel, antes de pasarlos al 
ordenador. Fija una hoja de papel transparente sobre el retículo 
de trazado y trabaja sobre ella. Probablemente no podrás 
decidir la magnitud de la curvatura de sus líneas, pero puedes 
adoptar los puntos de comienzo y de final. Cuando empieces a 
programar el ordenador, debes comprobar tus trazados 
periódicamente pasando a (GO TO) cada sección. Los errores 
son mucho más fáciles de corregir cuando te das cuenta de que 
los has cometido. En la Figura 48 se supuso que se trataba de un 
cuadrado. A continuación damos el programa correspondiente. 
¿En dónde está el error?. 


10 PLOT 50,50 
20 DRAW 50,0 
30 DRAW 0,50 
40 DRAW 50,0 
50 DRAW 0,-50 
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Figura 47 Figura 48 


La Figura 47 debería haber sido un corazón de San Valentín. 
¿Qué está equivocado en este programa? 


10 PLOT 100,50 

20 DRAW 50,70,P1/3 
30 DRAW 50,0,PI 

40 DRAW —50,0,PI 

50 DRAW —50,—70,P1/3 


Círculos 


Probablemente hayas descubierto que puedes dibujar un círculo 
con un par de curvas como éstas: 


DRAW 50,0,PI 
DRAW —50,0,PI 


Hay otras diversas formas de dibujar círculos, pero la más fácil 
es utilizar la orden CIRCLE (modo E, SHIFT y H). Necesitas 
decirle al ordenador en dónde debe estar el centro del círculo 
cuán grande ha de ser el círculo., Determina la posición del 
centro con el empleo de las coordenadas X e Y. 


CIRCLE 100,50 


tiene su centro a 100 puntos de la parte lateral y 50 puntos 
arriba. Establece el tamaño del círculo dando el radio, medido 
en puntos. 
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le 


Figura 49 


En la Figura 49, el círculo tiene 40 puntos de amplitud. La 
distancia desde el centro al contorno es 20. Esta magnitud es el 
radio. Para dibujar este círculo habrías de utilizar: 


CIRCLE 100,50,20 


El círculo puede ser tan grande o tan pequeño como quieras, 
con tal de que quepa en la pantalla. Te darás cuenta de que los 
círculos muy pequeños no son tan redondos como debieran ser. 
Con los círculos más grandes es preciso cerciorarse de que no 
van a salirse de la pantalla. Puedes comprobarlo mediante: 


La coordenada X + el radio no debe ser, en total, superior 
a255 

La coordenada Y + el radio no debe ser, en total, superior 
a175 

La coordenada X — el radio no debe ser inferior a 0 

La coordenada Y — el radio no debe ser inferior a 0 


o, si no eres aficionado a las sumas, compruébalo ejecutando las 
órdenes CIRCLE antes de que las utilices en el programa. 

Prueba un juego de *hoopla' (juego de las anillas en las ferias) 
en el programa CIRCULOS. 

¿Puedes utilizar órdenes PLOT, DRAW y CIRCLE para trazar 
un hombrecillo como el de la Figura 50?. Hay un programa de 
comprobación en la Figura 50a, pero los números que utilices 
para coordenadas probablemente serán diferentes. Utiliza el 
programa de comprobación para tus ideas. Observa también 


que, en este programa, los comandos PLOT y DRAW, que 
dibujan cada fragmento del hombre, se han ejecutado 
conjuntamente en una sola línea. 


10 
20 
30 
40 


50 
60 
70 
80 


90 


Figura 50 


CIRCLE 100,120,20 

CIRCLE 105,125,2 

CIRCLE 95,125,2 

100,125: DRAW —-3,-5: 


PLOT 
DRAW 
PLOT 
PLOT 
DRAW 
PLOT 
DRAW 
PLOT 
DRAW 


Figura 50a 


Dibujo de colores 


: DRAW 16,0,P1/2 
100,100: DRAW 0,-50 
—20,—50: DRAW —10,0 
100,50 : DRAW 10,-50 : 


70,40: DRAW 30,50: 


(cabeza) 

(ojo derecho) 
(ojo izquierdo) 
(nariz) 


(boca) 


(cuerpo) 
(pierna izquierda) 
(pierna derecha) 


(ambos brazos) 


Puedes utilizar INK y PAPER de color para el dibujo de líneas, 


lo mismo que para la impresión. Determina el color al comienzo 


del dibujo, en una línea aparte, o incluye el color en cada línea 


de DRAW. 


10 PLOT 50,50 
20 DRAW INK 2;50,0 
30 DRAW 0,50 


Esto dará solamente INK en rojo en la línea 20 de DRAW. Para 
la línea 30, INK volverá a ser negro. Lleva la orden INK rojo 
fuera de la línea 20 y ponla por sí misma en la línea 5 y ambas 
líneas estarán en rojo. 

Cambia la línea 5 para que se lea: 


5 INK 2: PAPER 6 


y mira lo que sucede. 

El color de PAPER actúa en bloques, con el mismo tamaño 
(y en los mismos lugares) que los espacios de caracteres 
utilizados en la impresión. Si deseas un fondo coloreado para 
tus dibujos, utiliza una línea como la siguiente: 


5 BORDER 6: PAPER 6: CLS 


que te proporciona una pantalla completamente amarilla, 
o imprime un bloque de color en esa parte de la pantalla que 
deseas con el empleo de algo similar a esto: 


10 FOR L = 5 TO 15 

20 PRINT AT L,10; PAPER 6;” ” (tantos espacios 
como quieras) 

30 NEXT L 


que te proporciona un bloque de amarillo en la parte media de la 
pantalla. 

El color de INK actúa también en esos bloques. El siguiente 
programa indica como: 


10 PLOT 0,50 
20 DRAW 100,0 
30 PLOT 50,0 
40 DRAW INK 6;0,100 


En donde la vertical amarilla pasa a través de la línea negra, 
vuelve amarilla parte de esa línea. Esta nueva parte amarilla es 
de una longitud de ocho puntos, que es la anchura de los 
bloques de color. 
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utilizar OVER para introducir algunos cambios en una imagen. 
Podrás intentar conseguir una cara triste/alegre (Figura 52) o un 
ojo guiñado (Figura 53). Graba (SAVE) las rutinas en cinta para 
su posterior fusión (MERGE) en otro programa. 


$e a o 
LOA 
t : 1 


Figura 52 Figura 53 


Podrías querer una cara alegre cuando una pregunta se 
responda correctamente y una cara triste para una respuesta 
equivocada. Hay programas de comprobación en las Figuras 
52a y 53a. 


Programa de comprobación de cara 


10 CIRCLE 120,80,20 (cabeza) 
20 CIRCLE 112,86,3 (ojo izquierdo) 
30 CIRCLE 113,86,1 (pupila) 
40M CIRCLE 128,86,3 (ojo derecho) 
50 CIRCLE 129, 86,1 (pupila) 
60 PLOT 120,84: DRAW -—3,-5 : (nariz) 

DRAW 3,0 


70 PLOT 112,76: DRAW 16,0,P1/2 (sonrisa) 

80 PAUSE Q 

90 OVER 1 

100 PLOT 112,76: DRAW 16,0,P1/2 (borra sonrisa) 

110 PLOT 112, 72: DRAW 16,0,—P1/2 (pliega hacia abajo 
la boca) 


Figura 52a 


Observa la PI negativa en la línea 110. 


Programa de comprobación del ojo guiñado 


10 PLOT 120,60: DRAW 70,0,—PI/2 
20 PLOT 40,60: DRAW 70,0, ,—PI/2 
30 PLOT 120,60: DRAW —20,-50,: (nariz) 
DRAW 40,0 
40 PLOT 130,50: DRAW 50,0,P1/2 
50 PLOT 130,56: DRAW 50,0,—PI/2 (ojo derecho) 
60 CIRCLE 155,53,10 
70 PLOT 50,50: DRAW 50,0,P1/2 (parte inferior ojo/ 
párpado) 
80 PLOT 50,56: DRAW 50,0,—PI/2 (ojo izquierdo) 
90 CIRCLE 75,53,10 
100 OVER 1: GOTO 80 


(cejas) 


Figura 53a 


Bloques de color 


Mira la sección en el programa CIRCULOS antes de seguir la 
lectura. 

Pronto te percatarás de que algunas formas son más fáciles de 
colorear que otras. Empieza con cuadrados y rectángulos. 

Estos pueden colorearse mediante una serie de líneas 
trazadas en un bucle de FOR. . .NEXT. . . La Figura 54 puede 
trazarse por medio de esta serie de líneas: 


10 FOR Y = 50 TO 100 (Y esla coordenada Y: la primera 


20 PLOT 50,Y línea comenzará en 50,50; la 

última comienza en 50,100) 
30 DRAW 100,0 (la longitud del rectángulo) 
40 NEXT Y 


Pero también podría trazarse con líneas verticales como ésta: 


10 FOR X = 50 TO 150 
20 PLOT X,50 

30 DRAW 0,50 

40M NEXT X 
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Figura 54 Figura 55 


Teclea cada una y luego pasa a su ejecución (RUN). El efecto 
final es el mismo, pero pudiera haber ocasiones en que quisieras 
que el color se pusiera de manifiesto de una forma particular. 

Si desearas una zona algo sombreada, en lugar de un bloque 
homogéneo, haz STEP en tu bucle. Cambia la línea 10 del último 
programa a: 


10 FOR X = 50 TO 150 STEP 2 
y mira la diferencia. 


Para obtener un bloque de puntos, como en la Figura 55, 
necesitas un programa algo diferente. En lugar de dibujar las 
líneas con PLOT y DRAW (que siempre dibuja líneas 
continuas), utilizamos otro bucle: 


10 FOR X = 50 TO 150 STEP 2 
tad 20 FOR Y = 50 TO 100 STEP 2 aa 
Sártida Sa POT A interiores 
40 NEXT Y 
50 NEXT X 


Los círculos coloreados son sencillos. El círculo de la Figura 56 
tiene un radio exterior de 20. 

Para colorearlo, necesitas dibujar (DRAW) una serie de 
círculos con radios desde 1 a 20. 
Ello se consigue con: 


10 FOR R = 1 TO 20 (R= Radio) 
20 CIRCLE 100,50,R 
30 NEXT R 
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Dibuja esto desde el centro hacia afuera, pero puedes rellenarlo 
desde el exterior cambiando la línea 10 a la siguiente: 


10 FOR R = 20 TO 1 STEP —1 
Para círculos ligeramente sombreados, aplica STEP a tu bucle. 


Los paralelogramos no son muy difíciles. Empieza por el 
trazado del primer lado inclinado. 


10 PLOT 100,50 
20 DRAW 50,50 


DIBUJA el lado de la izquierda de la Figura 57. 
A continuación, introduce esto en un bloque que te proporciona 
los puntos de partida a lo largo del lado inferior. 


10 FOR X = 100 TO 150 
20 PLOT X,50 

30 DRAW 50,50 

40 NEXT X 


PLOT 


Figura 56 Figura 57 


Los triángulos son más “peliagudos'. El bucle ha de realizar dos 
cosas a la vez: los puntos de partida y la longitud de las líneas 
trazadas. Examina el triángulo A en la Figura 58, dibujado 
mediante esta rutina: 


10 FOR X = Q TO 20 
20 PLOT X,0 

30 DRAW 0,X 

41M NEXT X 


La línea 20 desplaza los puntos de partida a lo largo del lado 
inferior. La línea 30 dibuja gradualmente líneas más largas hacia 
arriba. 


Figura 58 Figura 59 


Puedes cambiar la posición del triángulo en la pantalla 
mediante adición a los puntos de partida. El triángulo B de la 
Figura 58 tiene la misma forma que el triángulo A, pero 
comienza en 100,50. Añade estas coordenadas en la línea 20: 


20 PLOT 100 + X, 50 


El triángulo C tiene también la misma forma. Comienza en 
200,100. En este caso, la línea 20 es: 


20 PLOT 200 + X, 100 


Para hacer el triángulo más grande, pon un número más en el 
bucle. La Figura 59 muestra los mismos triángulos, con la línea 
siguiente: 


10 FOR X = Q TO 50 


La Figura 60 muestra ejemplos de distintas clases de triángulos. 
Modifica las rutinas para adaptarse a sus exigencias. Cambia el 
número en el bucle (línea 10) para hacerlos más pequeños o más 
grandes. Añade las coordenadas del punto de partida en la línea 
20 para desplazarlos a diferentes puntos en la pantalla (todos 
estos programas se escriben para triángulos que comienzan en 
la parte inferior izquierda) Multiplica la variable para “estirar” tu 
triángulo (observa la diferencia entre los triángulos A y E en la 
Figura 60). 

Observa que X e Y se han utilizado como las variables en estos 
bucles. Ello es solamente para recordarte que estás trabajando 
en el retículo de coordenadas X, Y. Por supuesto, puedes 
utilizar las letras que te gusten. 
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20 
30 
40 


20 
30 
40 


E 10 
20 
30 
40 


G 10 
20 
30 
40 


Figura 60 


FOR Y = Q TO 40 


PLOT 0,Y 

DRAW Y,0 

NEXT Y 

FOR X = Q TO 40 
PLOT X, 40 

DRAW 0,- X 

NEXT X 

FOR Y = Q TO 40 


PLOT 0,Y 
DRAW Y x 2,0 
NEXT X 


FOR Y = Q TO 40 
PLOT 0,Y 

DRAW 40—Y,40 
NEXT Y 


10 
20 
30 
40 


10 
20 
30 
40 


10 
20 
30 
40 


FOR X = Q TO 40 


PLOT X,0 

DRAW 0,4B0— X 
NEXT X 

FOR X = Q TO 40 


PLOT X,0 
DRAW 0,X * 2 
NEXT X 


FOR X = Q TO 40 
PLOT X,0 

DRAW 40, 40-X 
NEXT X 


Dibuja cilindros poniendo una de las coordenadas, o ambas, 


del centro del círculo de un bucle. 
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10 FOR X = 100 TO 150 
20 CIRCLE X,50,35 
30 NEXT X 


Aplica STEP a la línea 10 para un mejor efecto. El cilindro de la 
Figura 61 se dibujó con esta línea 10: 


10 FOR X = 100 TO 150 STEP 5 


La Figura 62 muestra el efecto de poner ambas coordenadas en 
un bucle. 


10 FOR X = 50 TO 100 STEP 5 
20 CIRCLE X,X,35 
30 NEXT X 


Figura 61 Figura 62 


Los conos se dibujan aumentando el radio del círculo, a medida 
que desplazas el centro a lo largo (ver Figura 63) 

10 FOR X = Q TO 50 STEP 5 aaa alada 

20 CIRCLE 100 + X,100,X “taza alo largo 

30 NEXTX _—— P 8 
Haz un cono más largo multiplicando la cantidad de 
movimiento. Cambia la línea 20 por la siguiente: 


EA 
20 CIRCLE 100 + 2*X,100,X lo estira 


y obtendrás el cono de la Figura 64. 


Figura 63 Figura 64 


¿Qué te parece una trompetilla acústica? (ve Figura 65). 

En esta ocasión, el radio se aumenta mucho más rápidamente 
porque es X*X en lugar de simplemente X. Comienza en 1*1=1, 
y prosigue hasta 9*'9=81. 

Las separaciones entre los círculos se aumentan 
multiplicando ambas coordenadas por 10. Ello es esencial para 
espaciar los círculos y darles forma. Observa también que STEP 
es solamente .3. Sin un STEP tan pequeño, la forma sería difícil 
de ver. 


10 FOR X = 1 TO 9 STEP .3 
20 CIRCLE 10x*X,10*X,Xx*X 
30 NEXT X 


Hay otros ejemplos de bloques de color al final del programa 
CIRCULOS. 


Figura 65 
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14 
Matrices 


Números 


Supongamos que deseas realizar una encuesta sobre dinero 
para gastos menores entre tus amigos. 

Tu plan consiste en introducir sus respuestas en el ordenador 
a medida que las consigas e imprimirlas todas al final. Has de 
escribir este programa: 


10 INPUT “Cuánto ?”;A 

20 IF A = 999 THEN GO TO 40 (su línea de escape) 
30 GO TO 10 

40 PRINT A 

50 GO TO 40 


Ejecuta este programa y teclea 25, 150,75,100,50,999. 

Imprime 999 en la parte inferior de la pantalla (!). Cada nueva 
entrada INPUT recubrió a la antigua, de modo que cuando vaya 
a la línea 40 el almacenamiento (fichero) de A contiene 999. 

Necesitas un fichero separado para cada número. Haz una 
nueva escritura del programa: 


10 INPUT “Cuánto ?”;A1 
20 INPUT “Cuánto ?”;A2 
30 INPUT “Cuánto ?”;A3 
40 INPUT “Cuánto ?”;A4 
50 INPUT “Cuánto ?”;A5 
60 PRINT A1 
70 PRINT A2 
80 PRINT A3 
90 PRINT A%4 
100 PRINT A5 


Ahora funciona el programa, pero ¿no fue una suerte que sólo 
tuvieras cinco amigos?. Piensa en el trabajo que implicaría hacer 
una encuesta entre 30 personas. 


Sin duda, habrás observado que hay una serie de números A1 
a A5 ó más bien, una serie de números 1 a 5 después de las 
letras A. Ponlo en un bucle FOR. . .NEXT. . .: 


10 FOR N = 1 TO 5 

20 INPUT “Cuánto ?”;AN 
30 NEXT N 

40 FOR N = 1 TO 5 

50 PRINT AN 

60 NEXT N 


Lamentablemente, este programa no funciona. “AN” es el 
nombre de un almacenamiento (fichero) y es recubierto en su 
escritura por cada nueva INPUT. Para subsanarlo, necesitas 
poner la N entre paréntesis con el objecto de decirle al 
ordenador que busque el valor de (N) en el bucle. A 
continuación, las INPUT se almacenarán en A(1), A(2), A(S), 
etc. Ahora, el ordenador no suele tener estos almacenamientos 
preparados para su uso inmediato, por lo que has de decirle que 
los prepare. Se precisa una línea suplementaria al principio del 
programa: 


5 DIM A(5) (palabra clave en D para DIM) 


DIM es la abreviatura de DIMENSION y has hecho lo que se 
conoce como una matriz dimensionada. La matrix es el 
conjunto de almacenamientos y su DIMENSION, o tamaño, es 
5 (en esta ocasión). 


SIGUIENTE 
TRABAJO DEL 
CHIP 


DIM A(S) 


He aquí al chip preparando adecuadamente una serie de 
Figura 67 almacenamientos o ficheros 


Vuelve a escribir el último programa de modo que aparezca 
como en la Figura 66. Cambia la DIMENSION (y el número del 
bucle) para adaptarse a tus exigencias. Las matrices pueden ser 
del tamaño que quieras, hasta un cierto punto por supuesto. 
Están ligadas con bastante cantidad de memoria. Teclea lo 
siguiente cuando quieras probar cuánta memoria se toma. 


10 DIM A(1730) 
20 PRINT “prueba de matrices” 
30 GO TO 20 


Ejecuta estas líneas y haz la edición correctora (EDIT) del 
programa. Obtendrás la compensación” de un zumbido 
espeluznante del Spectrum para hacerte saber que la memoria 
está llena y no puede admitir nada más. 


5 DIM A(C5) 

10 FOR N= 1 TO 5 

20 INPUT “Cuánto ?”;A(N) 
30 NEXT N 

40 FOR N = 1 TO 5 

50 PRINT A(N) 

60 NEXT N 


Figura 66 


Puedes, si así lo prefieres, incluir la línea PRINT en el interior 
del primer bucle y omitir las líneas 40 a 60. 


Una variable dimensionada (que es la denominación apropiada 
para un almacenamiento de matriz como A(1)) puede utilizarse 
de la misma manera que una variable ordinaria. Si quisieras 
sumar las cantidades del dinero para gastos menores que fuiste 
obteniendo, has de incluir una lista como la siguiente: 


25 LET T=TG+A(N) (en donde T es el Total) 


También necesitarás abrir el almacenamiento T con una LET 

T = 0 en alguna parte antes en el programa y desearás imprimir 
el total al final. 

Puedes escoger almacenamientos particulares procedentes de la 
matriz, por ej.: 
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PRINT A(3) 


que producirá la impresión del dinero de la tercera persona. 


Palabras y cosas en cadenas 


¿Recuerdas el programa “Quién está ahí” de nuestro primer 
libro de esta serie?. Dicho programa pregunta los nombres de 
todos quienes están y los imprime más adelante. Utilizamos 
una matriz de cadena para nombres y se dimensiona para 30. 
Puede parecerte excesivo, pero no te preocupes pues la línea de 
escape en 40 finalizará el bucle después de la última persona. 


10 DIM AS (30) 

20 FOR N = 1 TO 30 

30 INPUT “Quién está ahí?”; AS(N) 
40 IF AS(N) = “Q” THEN LET N = 30 
50 NEXT N 

60 FOR N = 1 TO 30 

70 PRINT AS (N) 

80 IF AS(N) = “Q” THEN LET N = 30 
90 NEXT N 


Introduce este programa por el teclado y procede a su ejecución. 


¿No es completamente correcto?. Sólo conseguiste las 
iniciales de los nombres impresos. Las matrices de los 
almacenamientos de cadenas son algo diferentes de las matrices 
de números. El ordenador sólo abre un espacio de una sola 
letra, a no ser que le indiques algo en sentido contrario. Cambia 
la línea 10 a la siguiente: 


10 DIM AS (30,6) 


Ahora tienes 30 almacenamientos (ficheros) etiquetados 
A5$(1),A5(2),A$(3). . .-A$(30) y cada uno tiene seis letras de 
longitud. Si tus amigos tienen nombres más largos, debes 
utilizar un número mayor que 6. Antes de que puedas utilizar el 
programa, tendrás que cambiar también la línea 40. Lo harás en 
un momento. 

La Figura 68 muestra la diferencia entre las dos líneas DIM. 
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También muestra algo más. Mira la primera tarjeta en el 
almacenamiento inferior. Cada espacio de letra tiene su propio 
número. Si “Robin' era el nombre en A$(1), entonces cuando 
tecleas: 


PRINT A$(1,1) 


obtendrás 'R'. 
Teclea lo siguiente: 


PRINT A$ (1,1 TO 3) (SHIFT y F par TO) 
y obtendrás “Rob”. 


DIM A$(30) 


(1,014,204,3(1,4)1(1,5)01,6) 


“OOO 


DIM AS (30,6) 


IN RN ri DIN te 


Figura 68 


Lo anterior se denomina troceado de cadena. Puedes 
seccionar cualquier fragmento de cadena que desees con el 
empleo del número de letra o los números de las letras primera 
y última con la palabra TO. Así, A$(1,3 TO 5) te proporciona 
A$(1,3), A$(1,4), A$(1,5) que equivale a “bin”. 

Vuelve a la línea 40: 


IF AS(N,1) = “Q” THEN LET N = 30 


porque sólo quieres saber cuál es la primera letra. Ello es así 
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porque todos tus almacenamientos de cadenas tienen, en este 
caso, seis letras de longitud y si no utilizas las seis letras en su 
totalidad, el ordenador rellenará con espacios, y el ordenador 
hace caso a los espacios. “Q” y “Q ” acaso signifiquen lo 
mismo para tí, pero son diferentes para el ordenador. Prueba a 
ejecutar el programa al principio de esta sección sin cambiar las 
líneas 40 (y 80) y luego vuelve a hacerlo con dichas líneas 
cambiadas. 

Haz algo divertido con el troceado de cadena. Modifica la 
línea PRINT para que se lea: 


PRINT AS (N,1 TO 3) 


y proporciona a tus amigos nuevos nombres abreviados. 


Troceado de cadenas 


Puedes “trocear” cualquier variable de cadena (no tiene que estar 
en una matriz). Teclea: 


10 INPUT “Nombre ?2”;AS$ 
20 PRINT AS (1) 


EJECUTALAS y responde con “Robin” y el ordenador 
imprimirá “R”. Cambia la línea 20 a: 


20 PRINT AS (3 TO 5) 


y obtendrás “bin”. 
Puedes examinar cada letra sucesivamente sustituyendo la línea 
20 por la siguiente: 


20 FOR N = 1 TO 5 
30 PRINT AS (N) 
40 NEXT N 


Prueba lo anterior con algunos nombres diferentes. Las letras se 
imprimirán una cada vez hacia abajo de la pantalla pero, por 
supuesto, sólo imprime las cinco primeras letras. 

Para hacer que esta clase de rutina sea adecuada para 
cualquier cadena, necesitas conocer su longitud. La orden LEN 
(para LENGHT) lo hará por tí. Modifica tu programa para 
incluirla. 
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15 PRINT LENAS (¡ni más ni menos que para que puedas 
verlo!) 
(modo E K para LEN) 
20 FOR N = 1 TO LEN AS 


ejecútalas e introduce algunos nombres más. Verás que la orden 
LEN determina cuantos caracteres hay en la cadena de INPUT. 

Puedes utilizar estas ideas en un programa que pregunte 
nombres de personas y luego los imprima con el apellido 
primero. Habrá un espacio entre el nombre y el apellido, por lo 
que conseguiremos que el ordenador lo busque. 


10 INPUT “Nombre y apellidos por favor ”;A$ 

20 FOR N = 1 TO LEN AS 

30 IF AS(N) = “” THEN LET S = N (S= número del 
espacio) 

40 NEXT N 


Ahora sabes en dónde finaliza el nombre de pila: su última letra 
está en S-1. Si el nombre en A$ era Teresa Green”, el espacio era 
el número 7 (S=7) y Teresa” finalizará en 6. “Green' comienza 
en 8. Podemos utilizarlo para dar la vuelta a las palabras. 


50 PRINT AS (S + 1 TO LEN AS);“”;A$(1 TO S —1) 
60 GO TO 10 


Prueba con nombres diferentes para ver su flexibilidad. ¿Qué 
sucede si las personas tienen dos o más nombres de pila o si 
sólo utilizan iniciales?. 


Conservación de datos en matrices 


Uno de los grandes usos de las matrices es mantener datos 
juntos para facilidad de manejo. En el Spectrum puedes grabar 
(SAVE) en cinta cualquier dato en una matriz (una sola matriz 
cada vez). 

El programa AHORCADO en el primer libro de esta serie 
recoge todas sus palabras en una sola matriz grande. A 
continuación, escoge una al azar para dársela al jugador. Pronto 
llegarás a conocer esas palabras y desearás introducirlas por tí 


mismo. No te gusta tener que teclearlas en cada ocasión, y no 
tienes por qué hacerlo. Teclea tu propio conjunto de palabras y 
luego prepara la grabadora de cassette para tu grabación. 
Teclea: 


SAVE “Ahorcado” DATA W$ () 


WS5$ (W de Words-Palabras) es el nombre de la matriz. DATA 
comunica al ordenador que estás grabando (SAVING) datos 
(información) y no un programa. Los paréntesis () se necesitan 
después de W$ porque se trata de una matriz. El Spectrum se 
confundirá si los omites. 


Haz la grabación en la forma habitual. Cuando quieras utilizar 


las palabras otra vez, carga (LOAD) primero el programa 
AHORCADO y luego teclea: 


LOAD “Ahorcado” DATA W$ () 


y carga su matriz de palabras. Puedes grabar tantos conjuntos 
de palabras como quieras, uno a uno por supuesto. Lo 
encontrarás de gran utilidad para conseguir una introducción 
hablada para cada conjunto de palabras y para una buena 
catalogación de modo que cada uno de ellos esté claramente 
definido y sea fácil de indentificar. El ordenador no te dirá qué 
conjunto de palabras has cargado y no lo sabrás hasta que 
comience a utilizarlas. 


Grabación de tus composiciones 


Puedes utilizar una matriz para almacenar los números que 
controlan los BEEPs de una melodía. En la Figura 70, el 
programa te permite componer en el Spectrum y luego grabar 
(SAVE) esa composición, como un conjunto de números. Te 
pregunta primero cuántas notas utilizarás, y luego los valores 
del tono y del tiempo (intervalo) para cada nota. 

Observa la línea 20: 


20 DIM NC2,M) 


en donde M es el número de notas que utilizarás. Se trata de 
una matriz doble. Rocogerá los valores de los intervalos en los 
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almacenamientos N(1,M) y los valores de los tonos en N (2,M). 
Dichos almacenamientos pueden considerarse como una tabla 
tal como en la Figura 69. 


NOTAS (N) 
INTERVALON(1) TONO N(2) 
NC1,1) Ñ 0 N(2,1) 
NC1,2) 1 A N(2,2) 
N(1,3) N(2,3) 
NC1,4) N(2,4) 
NC1,5) N(2,5) 
NC1,6) N(2,6) 
NC1,7) N(2,7) 


Figura 69 


La primera nota de esta melodía es medio segundo de 
“do” (C) media. El intervalo (.5) se almacena en N(1,1) y el tono 
(0) está en N(2,1). La segunda nota es un segundo de la E('mi”) 
por encima de C media, por lo que verás 1 en N(1,2) y 4en 
N(2,2). 

Hubiera sido más fácil de escribir y de comprender si tuvieras 
matrices T(M) y P(M) independientes para el intervalo y el tono. 
Sin embargo, si fuera así, habrías tenido que grabarlas (SAVE) 
también por separado. 


INPUT 


“Cuantas notas ?”;¿M 


20 DIM NC(2,M) 

30 FOR T= 1 TOM (T = número de 
intervalos de tiempo) 

4M INPUT “Tiempo ?”;NC(1,T) 

50 INPUT “Tono ?”;N(2,T) 

60 NEXT T 

70 FOR T = 1 TOM 

75 PRINT T; TAB 10;NC1,T); (línea de 

comprobación 
TAB 20;N(2,T) provisional) 

80 BEEP N (1,T),NC2,T) 

90 NEXT T 

100 INPUT “Algun cambio ? (S/N)>”;AS 

110 IF AS —N” THEN GO TO 170 

120 INPUT “ Qué número ?”; C estas líneas te 

130 INPUT “Tiempo ?”;N(1,C) permitirán corregir 

14M INPUT “Tono ?”;N(2,C) cualquier nota 
equivocada. Ahora 
verás por qué tenía la 
línea 75 

150 INPUT “Alguno mas ? (S/N)”;AS$ 

160 IF AS = “S” THEN GO TO 120 

170 INPUT “Una nueva ejecucion?(S/N)”; AS 

180 IF AS ="S” THEN GO TO 70 

190 STOP 

Figura 70 
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15 
Gráficos definidos por 
el usuario 


Ejecuta el programa COLOR y consulta la sección relativa a 
“Gráficos definidos por el usuario”. 

El Spectrum, como la mayor parte de los ordenadores, 
almacena toda su información como números binarios (lo que 
significa una configuración de “unos” y de “ceros”). Cada espacio 
de carácter en la pantalla está consitituído por ocho filas de ocho 
puntos. Para el Spectrum, cada una de estas filas es un número 
binario. En donde haya un “1” pon un punto de INK; los“0” se 
dejan en el color de PAPER. La Figura 71 ilustra tal 
circunstancia. 


Número binario Configuración de puntos INK 


10000100 
10000111 
10000111 
11111100 
11111111 
10011101 
10000100 
10000100 


Figura 71 


Para definir el carácter de tus propios gráficos, necesitas 
primero descomponerlo en una configuración de puntos de 

8 x 8. A continuación, lleva cada fila de puntos en una línea de 
1s y de Os (lo que constituye un número binario). Hay ocho filas 
y cada una necesita introducirse por separado en la memoria del 
ordenador. Se utiliza una parte especial de la memoria, alejada 
del programa principal (Basic). Para almacenar información en 
esta sección de memoria, utiliza la orden POKE. 
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Hay 21 almacenamientos disponibles para su uso y están 
etiquetados USR “a” hasta USR “u” (USR es la abreviatura de 
USER DEFINED -definido por el usuario). Cada 
almacenamiento tiene ocho partes, una para cada fila, 
numeradas de 0a7. 

Necesitarás adoptar estas palabras 


POKE — (palabra clave en O) 
USR (modo EL) 
BIN (número BlNario) (modo EB) 


Para introducir nuestro primer número para definir la 
primera línea de la imagen de perro en la Figura 71, necesitamos 
escribir esta línea: 


POKE USR “a” +0, BIN 10000100 


la dirección del fichero el número que está almacenado allí 
o almacenamiento 
La siguiente fila se introduce con el empleo de esta línea: 


POKE USR “a” + 1, BIN 10000111 
y la siguiente... 
POKE USR “a” + 2, BIN 10000111 


Verás que aquí tenemos una serie (los números en la dirección), 
por lo que tendría sentido el empleo de un bucle 
FOR. . NEXT. ... 

Si escribimos los números binarios como DATA (datos), 
podríamos leerlos (READ) uno a uno y aplicarlos POKE en las 
direcciones correctas. 


10 FOR R = Q TO 7 (R= Número de fila) 


20 READ B (B = Número Binario) 
30 POKE USR “a” + R,B 
40 NEXT R 


50 DATA BIN 10000100, BIN 10000111, 
BIN 10000111, BIN 11111100, BIN 11111111, 
BIN 10011101, BIN 10000100, BIN 10000100 


Después de teclear lo anterior y de su ejecución (RUN), la 
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tecla A tendrá activada la imagen del perro cuando esté en el 
modo de gráficos. El perro todavía seguirá allí después de haber 
aplicado NEW al programa. Los gráficos definidos por el 
usuario se almacenan lejos del programa principal (Basic) y 
NEW sólo borra este último. Sin embargo, se irá cuando 
desconectes el Spectrum. 

Cambia el programa para probar algunos gfaficos de tu 
propia creación. Si quieres retener el gráfico del perro en A, has 
de cambiar la letra en la línea 30. Puede utilizarse cualquier letra 
hasta Ú. 

Elabora tu carácter primero en papel cuadriculado y 
transparente, de modo que puedas ver la configuración de 
puntos que necesitarás. Cambia las configuraciones de puntos 
en “1” y en “0” y escríbelas como números binarios en la línea 
DATA. 

Si quieres definir cada vez más de un carácter, necesitarás un 
par de bucles. El siguiente programa define tres caracteres. 


10 FOR T = 1 TO 3 (T= número de intervalos) 
20 READ C$ (C$ = la letra para el fichero USR) 
30 FOR R = Q TO 7 
40 READ B 
50 POKE USR C$ + R,B 
60 NEXT R 
70 NEXT T 
80 DATA “a”, BIN 01000100, BIN ... 
90 DATA “b”, BIN 00010010, BIN ... 
100 DATA “c”, BIN 11101100, BIN ... 


Verás que cada línea de DATA comienza con una letra, que es 
leída (READ) para proporcionar la dirección del fichero USR en 
el que se almacenará tu conjunto de números binarios. Aunque 
puedes poner tanto como quieras en una línea de DATA, 
encontrarás de utilidad tener una línea aparte para cada carácter 
de gráfico. 


102 


Ahorro de tiempo 


1 BIN 00000000, puede escribirse simplemente como 0 (sin 


BIN). De hecho, puedes utilizar cualquier número ordinario, 


en lugar de binarios, para definir las filas. El ordenador los 
convertirá automáticamente en binario. Prueba el siguiente 
programa y mira lo que sucede: 


10 
20 
30 
40 
50 


FOR R = 0 TO 7 

READ B 

POKE USR “d” + R,B 

NEXT R 

DATA 1,3,7,15,31,63,127,255 


Ejecútalo, ¿Qué hay ahora en D de gráfico? 
Suele ser más fácil utilizar binario, porque de esa forma 
verás la configuración de puntos en los números. 


2 Puedes omitir cualquier “0” a la izquierda del número de 


BIN. 


BIN 00001100 SIGNIFICA LO MISMO QUE BIN 1100 
BIN 00011101 SIGNIFICA LO MISMO QUE BIN 11101 


Por supuesto, es lo mismo que ocurre con los números 
ordinarios: 0025 es igual que 25. 


3 Los números binarios que han de utilizarse varias veces 
pueden almacenarse primero en Variables y luego, las letras 
variables se introducen en la lista de DATA. 

Ello produce un compartimiento hueco (ve Figura 72). 


10 
20 
30 
40 
50 
60 
70 


Ejecuta este programa y mira lo que sucede. Cuando utilices 
una variable para ello, has de elegir almacenamientos que no 
sea probable que necesites para algo más (ahorra confusión). 


LET P = BIN 11111111 (una línea continua) 


LET Q = BIN 10000001 (los contornos) 
FOR R = Q TO 7 

READ B 

POKE USR “e” + R,B 

NEXT R 

DATA P,Q,A,A,A,A,AQ,P 
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Variable Número binario 


Configuración de puntos 


P 11111111 
10000001 
10000001 
10000001 
10000001 
10000001 
10000001 
11111111 


OO « o».« w pp Pp 


Figura 72 
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Apéndice A 


¿Por qué no hace lo que debiera? 


Muy pocos programas funcionan perfectamente en la primera 
ocasión. Ello se aplica tanto más cuanto más complejos sean tus 
programas. Hay tantas cosas insignificantes que pueden ser 
erróneas: el error de mecanografiado accidental, la puntuación 
equivocada, la línea borrada por error. Una acción cuidadosa y 
concienzuda en el teclado evitará muchos errores. 

A veces, sin embargo, el problema es más básico. Los 
programas debes concebirlos detenidamente y has de 
planearlos sobre el papel antes de que los lleves al ordenador. 
Un diagrama de flujo, u ordinograma, es el mejor medio para 
comenzar a ocuparte de los detalles de cómo harás cada bit de 


datos, de qué variables utilizarás y de cómo encajarás los bucles. 


A continuación, establece el orden en el que quieres que vayan 
las líneas y ponlas en un papel, aunque sea en forma 
bosquejada. La escritura de tu programa directamente en el 
ordenador puede parecer que ahorra tiempo, pero puede dar 
lugar a toda clase de problemas. 

Por consiguiente, si el programa no funcionara 
adecuadamente, es casi seguro que sea por tus propios errores. 
No eches la culpa al ordenador. Le estás exigiendo que haga 
algo que no puede realizar o se lo estás pidiendo de forma 
inadecuada. Es muy probable que lo estés solicitando de 
manera errónea y, en este caso, una comprobación concienzuda 
y minuciosa subsanará el problema. 


Si el programa se interrumpe cuando no debiera, tendrás un informe 
en la parte inferior de la pantalla. Tendrás más detalles sobre 
este tema en la siguiente sección denominada Informes'. Los 
informes proporcionan mucha información de utilidad. 


St pasa a las líneas que no le corresponde imagínate que tú eres el 
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ordenador y avanza a través del programa como si lo fueras. 
Trata de ver lo que sucede cuando se introducen (INPUT) 
diferentes cosas. Presta la máxima atención a lo que está escrito 
en las líneas IF. . THEN. . .; examina cuidadosamente los 
números de línea después de GO TO. A veces, has cambiado 
los números de línea mientras los estaba escribiendo y has 
olvidado modificar los GO TO para subsanarlo. 

Comprueba el listado en la pantalla con tu programa escrito 
(si lo hubieras hecho siguiendo nuestras recomendaciones) o tu 
diagrama de flujo. ¿Has omitido una línea o la has borrado por 
error?. 


¿Por qué no espera cuando debiera hacerlo? Si tuvieras dos líneas de 
PAUSE o de INKEY$ muy próximas, el programa 

podría ejecutarse fácilmente pasando de una a la otra sin 
detenerse; sobre todo si tienes un usuario “torpe de manos”. Pon 
un bucle de retardo entre ellas para dar al usuario tiempo para 
retirar sus dedos de las teclas. 


FOR D = 1 TO 100: NEXT D 
probablemente será suficientemente larga. 


Finalmente, comprueba sus variables. ¿La has impreso de modo 
que puedas ver lo que está sucediendo?. Sigue las 
recomendaciones dadas en el Capítulo 4, “Planificación de 
programas 2: Mantenimiento de registros”. 


Informes 


Los informes constan de cuatro partes: 
Número de código mensaje escrito número de línea sección de línea 


La A 
0 OK 40:2 


Los números de código probablemente sean de poco uso 
práctico para tí. Acaso tengas algo de herencia del predecesor 
del Spectrum, el ZX81. En esa máquina, no había ningún 
mensaje escrito y tenía que buscarse el significado del Código 
de Informe en la parte posterior del manual de manejo. 

Los números al final son importantes. Te dicen exactamente 
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en dónde estaba el ordenador antes de detenerse. '40:2' 
significa “la segunda parte de la línea 40'. Podría ser una línea 
como la siguiente: 


40 CLS : GO TO 250 


(y el problema es que el programa se detiene en la línea 250). 
“GOTO 250' es la segunda parte de esta línea de “ejecución 
conjunta”. '40:2” podría signifiar también esta línea: 


40 IF A = 5 THEN GO TO 250 
La segunda parte de esta línea es GO TO 250". 


Informes escritos 

No pretendemos dar una lista completa de todos los informes 
posibles, pero, no obstante, cubre todo lo que es probable que 
se encuentre, a no ser que tu máquina disponga de unidad de 
discos, impresora, etc. 


BREAK-CONT repeats, BREAK into program. Informes muy 
similares. Con ambos, al pulsar CONT se volverán a tener cosas 
relativas a donde te detuviste, aunque puedas haber editado en 
acción correctora o añadido nuevas líneas en medio. 


Integer our of range (entero fuera del margen). 

Probablemente le hayas dicho al ordenador que imprima o 
trace una dirección que esté fuera de los retículos de 
coordenadas. Este informe puede aparecer a veces con otras 
Órdenes o comandos. Comprueba el número que utilizaste o la 
variable que retiene el número. 


Invalid Argument (argumento no válido). Podrás encontrar 
este mensaje cuando trates de definir tus propios gráficos. 
Comprueba la línea POKE USR. . . y la de DATA. 


Invalid Colour. Al ordenador se le ha dado un número para 
un color de INK/PAPER/BORDER que está fuera de su margen, 
esto es, más de 9. Quizás el número de color esté controlado por 
un bucle que va más allá de 9. Consulta el apartado de “bucles 
de colores” en el Capítulo 5, en lo que respecta a las formas de 
mantener tus números de colores dentro del margen. 
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Invalid File name (nombre de fichero no válido). Estás 
intentando registrar un programa y has olvidado darle un 
nombre o el nombre empleado es demasiado largo (máximo de 
diez caracteres). 


NEXT without FOR (NEXT sin FOR). Has olvidado escribir la 
línea FOR de un bucle o le has dicho al ordenador que pase a 
(GO TO) una línea en la parte media de un bucle y has omitido 
la línea FOR. 


Number to big (número demasiado grande). Alguien está 
intentando confundir al Spectrum con números enormes. La 
suma que está realizando ha dado como resultado un número 
mayor que 

10% = 100.000.000.000.000.000.000.000.000.000.000.000.000 
El número no cabría en la pantalla en una sola línea. 


Nonsense in BASIC (sin significado en BASIC). 
Probablemente hayas pedido al ordenador que haga algo con 
un almacenamiento de cadenas (por ejemplo, VAL A$) que no 
puede hacerse. Es posible que hayas suprimido una línea 
anterior por error y tu programa ya no tiene sentido (¿Sigue 
todavía A$?). 


O.K. Trabajo realizado según las instrucciones dadas. 


Out of DATA (datos agotados). El ordenador no tiene datos 
para su lectura (READ). Necesitas proporcionar más datos o 
poner un RESTORE en alguna parte del programa. Mira el 
Capítulo 12, “Una lección de lectura”. 


Out of Memory (memoria agotada). Has intentado 
sobrecargar la memoria. Ello podría suceder cuando se fusionen 
(MERGING) programas o durante la ejecución de un programa 
largo. Necesitas crear un poco de espacio. Comprueba para ver 
si se siguen necesitando las variables que utilizaste con 
anterioridad en el programa. De no ser así, podrás obtener 
dicho espacio de memoria sustituyendo CLS por CLEAR. Con 
ello se borrará (CLEAR) los almacenamientos así como la 
pantalla. Si ello no fuera suficiente, suprime (DELETE) algunas 
líneas REM; elimina las líneas provisionales que hayas puesto 
para comprobar el programa mientras lo estás escribiendo. 
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Ejecuta juntas algunas líneas cortas (cada línea separada exige 
cuatro bytes). Si todavía no es suficiente, mira si es posible 
escribir el programa de forma más “económica'. ¿Hay algunas 
rutinas repetidas? Si las hubiere, deben ser subrutinas. 
¿Necesitas imprimir en la pantalla todas las cosas que hagas?. 
¿Podrías utilizar gráficos definidos por el usuario en lugar de 
gráficos de alta resolución, para algunos de sus programas 
pequeños?. 


Out of Screen (fuera de pantalla). Has dicho al ordenador que 
imprima por debajo del fondo de la pantalla. Ello podría 
suceder cuando se proceda a la animación de una imagen en la 
parte inferior de la pantalla. Trata de modificar el bucle que 
controla la posición de PRINT. 


RETURN without GOSUB (RETURN sin GOSUB). El 
ordenador ha seguido la ejecución desviándose del final del 
programa principal y metiéndose en las subrutinas. Evítalo con 
un STOP 

o GOTO (dando marcha atrás en el programa). 


STOP. El ordenador ha encontrado una línea STOP. 


STOP in INPUT. Has hecho esta acción intencionadamente 
porque BREAK no actuaba. Mira Capítulo 2, “Planificación de 
programas 1”, si no te acuerdas de cómo hacerlo. 


Subscript wrong. (subíndice equivocado). Estás utilizando 
una matriz y el número entre paréntesis no encaja. Quizás 
hayas escrito “PRINT A(20), pero solamente “DIM A(15) al 
principio. Comprueba tu línea DIM y el bucle que la matriz 
estaba recorriendo en el momento. El subíndice debe ser un 
número entero mayor que 0. 


Tape loading error (error de carga de cinta). Se ha definido un 
programa, pero no fue objeto de carga. Causas posibles: 
nombre del programa equivocado, volumen de casete muy 
bajo, grabación de calidad deficiente. 


Variable not found (variable no definida). Una causa muy 
probable es una introducción de letra cuando no se deseaba un 
número. INPUT A sólo aceptará números (o letras que sean los 
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nombres de almacenamientos para números). Mira el Capítulo 
9, “Planificación de programas 5'. También puedes estar 
intentando utilizar una variable antes de que se le haya dado un 
valor mediante una línea INPUT, LET, READ o DIM. 


Apéndice B 


Códigos (CODES) de caracteres 


No se trata de una lista completa de caracteres y de sus códigos, 
pero incluye todos aquellos que necesitarás para comprobar las 
entradas (INPUT), tal como se indica en el Capítulo 9, 
“Planificación de programas 5'. Verás que los números tienen 
códigos que son mayores que 47 y menores que 58. Las letras 
mayúsculas están entre 65 y 90; las minúsculas entre 97 y 122. 
El Spectrum puede indentificar los caracteres bien sea por su 
código, bien sea por ellos mismos. Por ejemplo, “PRINT CHR$ 
65' es lo mismo que “PRINT A”. Si quieres ver una impresión 
completa de los caracteres, teclea lo siguiente: 


10 FOR N = Q TO 15 
20 PRINT N; 

30 PRINT CHR$ N 

40 NEXT N 

50 FOR N = 24 TO 255 
60 PRINT N; 

70 PRINT CHR$ N 

80 NEXT N 


CHRS 16 a 23 se han omitido porque el Spectrum no los 
imprimirá. Todos son para hacerse con controles de color y 
posiciones de PRINT. 

Siempre que tengas un código no usado o un carácter que no 
pueda imprimirse (como “cursor a la izquierda” = CHR$ 8) 
obtendrás un ”?”. 
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(CODE) 


32 
39 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
+4 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
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CODIGO Carácter 


Space 
[ 


1“ 


VD O0 Xu QN-Oo + 


VIAS” 


(CODE) 


CODIGO Carácter 


“== KN HRS AO ADIOS IO ARTNATRATIAOA AAN As" 


(CODE) 


94 

95 

96 

97 

98 

99 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 


CODIGO Carácter 


E E E E O E 


Apéndice € 


Empleo de los histogramas 


El programa HISTOGRAMA está concebido para transformar 
tablas de cifras en histogramas. Hay un ejemplo de cómo actúa 
en el propio programa, pero podría servir de ayuda una 
explicación suplementaria. Puedes utilizar el programa para 
elaborar diagramas a partir de una simple tabla. 


Veamos un ejemplo: 
Control de tráfico por carretera de 9,00 a 9,30 de la mañana el 
martes día 20 de septiembre. 


coches 


camiones 


autobuses 


bicicletas 


Introduce por el teclado los 
datos procedentes de esta 
tabla y obtendrás una pantalla 
como se indica a continuación: 


CONTROL DE TRAFICO En 
POR CARRETERA 20 SEPT. CE AB 
O A U 1 
9-9,30 COM TC 
H 1 0 1 
E Q0 B € 
Ss No U L 
E S E 
S E 
Ss A 
Figura 73 S 


En una tabla simple como ésta, puedes tener hasta 25 elementos 
de datos diferentes. No obstante, el programa puede utilizarse 
también para comparar los resultados obtenidos a partir de 
diferentes conjuntos de lecturas. Podrás comenzar con una 
tabla similar a la siguiente: 


Control de tráfico por carretera, 20 septiembre 


| 9.00-9.30 12.00-12.30 l 3.00-3.30 
mañana tarde tarde 
coches E 42 56 48 
camiones 7 e: 3 10 
autobuses 3 5 7 
bicicletas 24 | 76 98 


En este caso, querrás tener tres histogramas diferentes (para los 
distintos períodos de tiempo) y comparalos entre sí. El 
programa realiza esta labor. Una vez que se hayan introducido 


9 — Control de trafico por carretera 20M Sept. 
1 - 
3 — 

Mo Y mov l 

c Cc A B 

0 A U I 

(6 M T C 

H I 0 E 

E 0 B Cc 

S N Ú L 

E S E 

S E T 

S A 

5 J 
Figura 74 
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los datos, el primero de los histogramas (9,00-9,30) se dibujará 
en la pantalla en color INK negro. El segundo histograma 
seguirá, cuando esté preparado, en color INK rojo y el tercero 
en color INK verde. La pantalla final tendrá un aspecto como el 
que se indica en la Figura 74. 


El programa es bastante flexible y debe ser adecuado para la 
mayor parte de las tablas. Puedes utilizarlo para comparar hasta 
cinco histogramas diferentes, pero sólo hay espacio para 25 
barras en la pantalla. Ello significa que si tienes cinco 
histogramas sólo puedes tener cinco elementos de datos 
(encabezamientos de columnas a través de la parte inferior). Si 
comparas solamente dos histogramas, podrás tener hasta 12 
elementos de datos (12*2 = 24). 

Hay líneas de comprobación a través de todo el programa, de 
modo que pueda corregirse cualquier error de tecleado. Estas 
líneas de comprobación están controladas por una línea 
INKEY$ o INPUT. Si el ordenador no va (GO) después de 
pulsar G,prueba con ENTER. 


Puesta en escala 


Observarás que cualquiera que sea la magnitud de los números 
utilizados, el programa los pone en escala de modo que el 
número más grande alcance la parte superior del área del 
histograma. Ello se consigue mediante una rutina como ésta: 


LET B = Q- (abre un fichero para el número más grande) 
IF A(N) > B THEN LET B = A(N) 


Esta línea examina sucesivamente cada número para ver si es 
más grande que el número en su fichero Biggest' (el más 
grande). Si lo fuera, ese número pasaría a dicho fichero. En el 
ejemplo siguiente, había siete números a comprobar. El bucle 
de comprobación tenía la disposición siguiente: 


FOR N = 1 to 7 
IF A(N) > B THEN LET B =A(N) 
NEXT N 
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Los siguientes números estaban en la matriz A(N) en este 
ejemplo: 2,7,3,9,11,4,1. 


A(N) 'Biggest' (el más grande) 


Comienzo 0 
e 2 2 > QM por lo que sea B = 2 
7 Y 7 > 2 por lo que sea B = 7 
3 7 3 más pequeño que 7 
9 9 9 > 7 por lo que B = 9 
11 11 11 > 9 por lo que B = 11 
4 11 4 más pequeño que 11 

Figura 75 1 11 1 más pequeño que 11 


Una vez que se hayan comprobado todos los números, puedes 
ponerlos en escala multiplicándolos por 100/el más grande”, en 
donde 100 es la mayor mangitud posible, en puntos de 
coordenadas, de las barras. Veamos lo que sucede cuando el 
más grande es 200: 


200 * 100/200 = 100 


que justamente alcanza la parte superior del área de 
histogramas de la pantalla. Con el más grande siendo todavía 
200, veamos lo que sucede a 180: 


180*100/200 = 90 


y 180 es objeto de puesta en escala hasta 90 puntos. 

Si el número más grande es menor que 100, todos los 
números tendrán una puesta en escala hasta llenar la pantalla. 
Por ejemplo, si el número más grande es 10 y el número a 
someter a puesta en escala es 5: 


5100/10 = 50 


y la barra tiene una altura de 50 puntos. 


Dibujo de las barras 


Se efectúa con esta clase de rutina: 
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FOR Y = Q TO... (cualquier número después de la puesta 
en escala) 

PLOT X,Y 

NEXT Y 


y es la altura de la barra; X es su posición a través de la pantalla. 
La posición de la barra se desplaza a través de la pantalla 
mediante un bucle en la X. 


FOR X = 50 TO 150 STEP 8 

FOR Y = TO ... (cualquier número) 
PLOT X,Y 

NEXT Y 

NEXT X 


La rutina real es algo más complicada que ésta por tres razones: 


" Para hacer más gruesas las barras — la rutina anterior dibuja 
solamente una línea delgada. 

" Para permitir que se comparen varios histogramas. 

m Para desplazar las barras fuera del fondo de la pantalla. 


Conservación de tus datos mediante grabación 


Lleva un cierto tiempo teclear todos los datos cuando estés 
utilizando el programa HISTOGRAMAS y quisieras reutilizar 
algunos conjuntos de datos. En la sección de “Matrices”, 
Capítulo 14, habrás visto que los datos en matrices pueden 
conservarse grabándolos en cinta. Todos los números en el 
programa HISTOGRAMAS se recogen en una sola matriz 
grande, con la etiqueta I( ). Los nombres de los diagramas se 
retienen en la matriz C$( ) y los nombres de los elementos de 
datos en I5( ). Lamentablemente, la falta de espacio de memoria 
significó que los números y los nombres no pudieran agruparse 
todos en la misma matriz. Probablemente te parecerá que 
merece la pena conservar (SAVE) los números, con el empleo de 
la técnica de grabación (SAVING) de datos. 

Prepara tu grabadora de casete para la grabación y luego 
teclea: 


SAVE “Histograma” DATA I( ) 
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Cuando quieras reutilizarlos, carga primero el programa de 
histogramas y luego localiza en tu cinta el conjunto de datos que 
quieras, y teclea: 


LOAD “Histograma” DATA 1 ( ) 


Cuando cargues (LOAD) datos de esta forma, recubrirás 
completamente cualesquiera otros datos en la matriz. Una vez 
que hayas cargado y utilizado un conjunto de valores, puedes 
cargar otro conjunto. 

Si tuvieras algunas dificultades con la grabación de datos, 
consulta la sección de “Conservación de datos en matrices' en el 
Capítulo 14. 


Apéndice D 


Dado y probabilidad 


Si dispones de un dado normal y bien equilibrado, cada número 
tendrá la misma posibilidad de salir. Hay seis caras, por lo que 
la probabilidad de que aparezca cualquier número particular es 
1/6. Ello no significa, sin embargo, que si tiras el dado seis veces 
obtendrás una puntuación de 1,2,3,4,5, y 6. La probabilidad no 
actúa de esa manera. Lo que significa es que cuanto con mayor 
frecuencia tires los dados, tanto más probable será que salga 
cada cara el mismo número de veces. 

Ejecuta el programa DADO. Date cuenta de que la mayor 
parte de las entradas se toman directamente mediante líneas 
INKEY$ y que, normalmente, no necesitarás pulsar ENTER. 

Elige “Estudio” y selecciona “Un dado”. Tíralo seis veces. 
¿Cuán uniforme es la dispersión de números?. Ahora pasa a 
“Tirada rápida' e introduce (ENTER) “60”. ¿Cuán uniforme es la 
dispersión después de 607. Si dispones de tiempo, haz 600 veces 
la tirada rápida del dado. Al final, debes tener más o menos 100 
de cada número. Cuando hayas hecho suficientes tiradas, pulsa 
“N' para final, y luego 'C” para histograma. Con ello se dibujará 
un histograma en la pantalla. Podrás observar, a simple vista, la 
uniformidad de la dispersión de números. Ten presente que 
después de haber visto los diagramas, puedes efectuar algunas 
tiradas más si así lo deseas y puedes comenzar de nuevo desde 
O o continuar sumando a los totales que ya tienes. 


Con los dados 


En este caso, es el total lo que importa. Observarás que aunque 
la pantalla muestra las caras de los dos dados, sólo registra el 
total de ambas caras. 

El total puede, por supuesto, tener un valor entre 2 y 12. No 


obstante, probablemente habrás observado que las 
puntuaciones intermedias aparecen con más frecuencia que las 
grandes o pegueñas. Ello es así porque sólo hay una forma de 
conseguir 2(1 y 1) ó 12(6 y 6), pero hay seis formas para obtener 
7(1,6), (2,5), (3,4), (4,3), (5,3), (6,1). Examina lo anterior en el 
histograma siguiente: 


Total de los dos dados 


8 9 10 11 12 


Primer dado 6|7 


5 3 9 10 11 
4 6 8 9-18 
3 > 0 y 0. 9 
2 4 5 7 8 
1 30.4 6 7 

1 2 3 4.5 6 


Segundo dado 
Figura 76 


¿Cuántas formas hay de obtener 6? ¿Y 9?. 

Si cuentas el número de formas de obtener cada total y las 
llevas a un histograma, tendrás como resultado lo que aparece 
en la Figura 77. Tira tu dado 36 veces y mira cuán cerca estás de 
conseguir estos posibles números. Cuantas más veces tiras los 
dados, tanto más próximos estarán los resultados a este ideal y 
tanto más los histogramas de los resultados tendrán la forma de 
la Figura 77. 

Los números en el programa dado (utiliza uno o dos dados) 
son recogidos, en su totalidad, en la matriz D( ). Para conservar 
los resultados de tus tiradas, teclea: 
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SAVE “Dado” DATA D( ) 


y graba en la forma habitual. 

Para más detalles sobre la conservación de datos de esta 
manera, consulta el Capítulo 14, Conservación de datos en 
matrices” y el Apéndice C. 


TOTALES POSIBLES PARA DOS DADOS 


Número de formas 
de obtener cada 
total 


Totales posibles 


Figura 77 
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Apéndice E 


Glosario 


ADDRESS (Dirección) Es el nombre de un almacenamiento de memoria en la 
propia memoria codificada de la máquina. La dirección es siempre un 
número. PEEK una dirección para averiguar lo que está almacenado en ella. 
POKE una dirección para poner un número en dicho almacenamiento (Ver 
MEMORIA, USR, PEEK y POKE). 

AND utilizada en una línea IF. . THEN. . . en donde deba existir dos (o 
más) condiciones si el ordenador ha de llevar a cabo la orden de la línea (Ver 
“Planificación de programas 5”). 

ARRAY (matriz) Es un conjunto de variables que tienen la misma letra 
inicial, pero con números diferentes. Por ejemplo, A(1), A(2), A(3), etc. Se 
establece mediante una orden DIM. Se utiliza en bucles FOR. . .NEXT para 
la recogida de tablas de datos. (Mira Capítulo 14) 

AT (ver PRINT) 

BEEP produce los sonidos. (Consulta Apéndice A en el primer libro, “Ideas 
sobre sonidos” y el programa sonidos). 

BIN Esla abreviatura de número binario, que se utiliza cuando se definen 
gráficos. (Consulta “Gráficos definidos por el usuario”). 

BORDER - Es el color del contorno de la pantalla, fuera de la zona de PRINT 
(Mira Apéndice B en el primer libro y el apartado de “Impresión de colores 
en este segundo libro). 

BREAK para el ordenador. Se reinicia el funcionamiento con CONTINUE 
(Mira Apéndice A). 

BRIGHT hace más brillante PAPER (Mira “Presencia/ausencia de colores”). 

BUG (error) Se trata de una anomalía en el programa. Los programas 
complicados es raro que funcionen perfectamente la primera vez. La 
depuración de problemas muy complejos se conoce como “debugging' (Mira 
Apéndice A). 

BYTE Es una unidad de memoria, almacenada como un número binario. 
Hablando en términos aproximados, un byte retendrá un solo carácter. Las 
palabras de las órdenes, o comandos, tienen dos o mas bytes. Una línea de 
programa de la anchura de pantalla tiene unos 40 bytes. 1024 bytes equivalen 
a 1 kilobyte = 1K. 

CARACTER Es una letra, número, símbolo o forma de gráfico. La pantalla 
tiene una anchura de espacios de 32 caracteres y una profundidad de 22 
caracteres. Cada carácter está constituído por ocho filas de ocho puntos. 

CHR$ seguido por un número proporciona el carácter que tiene ese número 
de código (CODE). (Consulta el apartado de “Sobreimpresión” para ejemplos 
de su uso y Apéndice B). 
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CIRCLE dibuja un círculo. (Consulta el apartado de Círculos” en este libro y 
el programa con el mismo nombre). 

CLEAR - borra la pantalla y todas las variables almacenadas en ese momento. 
Puede ser de utilidad si se tiene escasez de memoria. 

CLS borra la pantalla, pero deja sólo las variables. 

CODE Es el número por el que el ordenador conoce a los caracteres. 
(Consulta “Planificación de programas 5' para ejemplos de su uso y el 
Apéndice B). CODE Af dará el número de código del primer carácter de esa 
cadena. Así, CODE Hola' es 72. El código para la letra mayúscula H es 72. 

COLORES Varían desde negro a blanco, pasando por azul, rojo. . ., 
transparente y contraste, en correspondencia con los números 0 a 9 en el 
teclado. BRIGHT, INVERSE, OVER y FLASH cuentan también como 
“colores”. (Mira Apéndice A del primer libro y la Impresión de colores' en 
este segundo libro). 

CONTINUE - sirve para reiniciar los programas después de BREAK. 

CRASH Destrucción del programa (Consulta “Planificación de programas 5”) 

CURVAOARCO Es una línea que se ha dibujado con una inflexión, o codo, 
en ella. (Consulta “Arcos' en este libro y el programa Plotter”). 

DATA Significa la información dada al ordenador. Las INPUTSs son datos. 
También significa aquella información puesta en una lista de línea DATA 
para su empleo con READ (Mira “Una lección de lectura/). 

DELETE  Borrará cualquier cosa de una línea en el espacio de trabajo. 

DIM Esla abreviatura de DIMENSION. Se utiliza para establecer matrices de 
variables (Consulta Matrices”). 

DRAW Se utiliza con PLOT para el trazado de líneas (Consulta Dibujo” y el 
programa “Plotter'). 

INVERSE permuta los colores PAPER e INK (Mira “Presencia/ausencia de 
colores). 

INVERSE VIDEO proporciona caracteres inversos en las líneas del programa 
(Mira “Presencia/ausencia de colores”). 

JUMPS (saltos) Es un salto en el que el ordenador no se desplaza a la 
siguiente línea sino que pasa hacia adelante o hacia atrás, pasando por 
encima de varias líneas. Un salto incondicional se produce con la línea 
GOTO. . . Un salto condicional tiene lugar con una línea IF. . .THEN 
GOTO... 

KEYWORD (Palabra clave) Todas las palabras de órdenes, o de comandos, 
en el Spectrum se introducen con el empleo de una sola tecla (y posiblemente 
con SHIFTs). Nunca se teclean como letras únicas. 

LEN Abreviatura de LENGTH. LEN mide la longitud de las cadenas 
contando el número de caracteres (Mira “Troceado de cadenas”). 

EDIT Corrije las líneas de un programa llevándolas de nuevo a la zona de 
trabajo para su nueva escritura. 

FLASH Produce un cambio rápido entre la coloración normal y la inversa 
(Mira “Presencia/ausencia de colores” y el programa Color). 

Bucles FOR. . .NEXT. .. Forma de ejecutar una serie de números a través de 
la misma parte del programa (Consulta “Repeticiones por sí mismo' en el 
primer libro). 

GOSUB envía el ordenador a una subrutina (Consulta “Planificación de 
programas 4”). 

GOTO Comunica al ordenador que vaya al número de línea escrito a 
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continuación. También se conoce como salto incondicional. El ordenador 
debe saltar, siempre que aparezca tal circunstancia, cuando llega a GOTO 
(Mira también SALTOS e IF. . .THEN y Planificación de programas 6”). 

GRAPHICS (Gráficos) En este modo, cuando el curso está como G, las teclas 
de números dan las formas que están en ellas y puede utilizarse cualquier 
gráfico definido por el usuario. 

IF. . THEN... hace que el ordenador realice algo si existe una condición 
determinada. Si no la hubiere, se ignorará el resto de la línea. 

IF. . THENGOTO Se trata de un salto condicional. El ordenador saltará a 
otra línea, pero solamente si han sucedido ciertas cosas (Mira “Comprobación 
de respuestas” y el programa “Ramas -Bifurcaciones' en el primer libro). 

INK (tinta) El color en el que suelen dibujarse los caracteres (Mira Apéndice 
A en el primer libro y la Impresión de colores' en este segundo libro). 

INKEYS$ lee directamente el teclado, sin que se utilice ENTER (Mira “El 
centinela” y el programa “Amable” en el primer libro). 

INPUT pide al usuario que proporcione algunos datos al ordenador (Mira 
“Preguntas y respuestas” en el primer libro y “Planificación de programas 5' 
en este segundo libro). 

INT Esla abreviatura de INTEGER. INT suprime la parte decimal de un 
número, dejando solamente el número entero (INTEGER). (Mira “Números 
aleatorios”). 

LET— pone un número o cadena de caracteres en un almacenamiento. 

LIST hace que el programa aparezca en la pantalla. LIST seguida por un 
número de línea hará el listado del programa a partir de esa línea. 

LOAD Transfiere un programa o datos desde la cinta a la memoria del 
ordenador. 

LOOP (bucle) Es en donde el ordenador recorre la misma sección del programa 
varias veces (Mira “Repetición por tí mismo de tablas de multiplicar y otras 
cosas' en el primer libro). 

MEMORIA Para averiguar cuánta queda disponible, has de utilizar la línea 
siguiente: 

PRINT (PEEK 23730 + 256 *PEEK 23731) — (PEEK 23653 + 256*PEEK 23654) 
Comenzaste con 8760 bytes. Cuando hayas llegado a tus últimos 100 bytes, 
más o menos, comenzarás a tener problemas (Mira Apéndice C en el primer 
libro y el informe “Out of Memory” en el Apéndice A de este libro). 

MERGE (fusión) Significa la carga de una rutina desde la cinta a la memoria, 
sin borrar el programa que ya estaba en ella. (Mira “Reutilización de efectos 
sonoros”). 

NEW Borra el programa Basic y todas sus variables de la memoria, aunque 
deja intacto cualquier gráfico definido por el usuario (Para aplicación de 
rutina NEW, mira “Impresión de colores”). 

NEXT  Verlos anteriores bucles FOR. . .NEXT 

OR Seutiliza en una línea IF. . THEN, en donde una de dos (o más) 
condiciones es suficiente para que el ordenador lleve a cabo la orden de esa 
línea (Mira “Planificación de programas 3” y la 5). 

OVER con PRINT, permite que dos caracteres se impriman en el mismo 
espacio (Mira “Sobreimpresión”). 

OVER, con PLOT y DRAW y CIRCLE, borra las líneas a las que aplica en 
donde cubren las líneas existentes (Mira “Sobretrazado”) 

PAPER Esel color de fondo de la parte central de la pantalla (Mira Apéndice 
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B en el primer libro y la “Impresión de colores” en este segundo libro). 

PAUSE comunica al ordenador que espere durante un tiempo establecido 
PAUSE 50 equivale a un segundo. Al tocar el teclado se anulará PAUSE y se 
desplazará el ordenador a la siguiente línea. PAUSE 0 significa “espera hasta 
que se pulse cualquier tecla”. 

PEEK examina el contenido de un almacenamiento en los elementos de 
trabajo internos del ordenador (Mira MEMORIA, para un ejemplo de su 
uso). 

PI  Esel número que da la relación existente entre el radio, la circunferencia y 
las áreas de círculos. Se emplea en la transformación de líneas en curvas 
(Mira “Curvas” y el programa “Plotter” 

PIXEL (elemento de imagen) Es un punto de luz, o de color, en la pantalla, 
utilizado en el trazado y en el dibujo. La pantalla (área de PAPER) mide 256 
pixels a lo ancho y 176 hacia arriba. 

PLOT pone un punto de INK en el punto especificado por las coordenadas 
X e Y (Mira Dibujo de líneas” y el programa “Plotter'). 

POKE pone un número en una posición de memoria interna del ordenador. 
Se utiliza en la definición de gráficos. (Mira “Gráficos definidos por el 
usuario”). 

PRINT pone caracteres en la pantalla. 

PRINT ”. . .” imprime cualquier cosa entre las comillas. 

PRINT 2+-2 calcula la respuesta y la imprime. 

PRINT AT y TAB se utilizan para la impresión en lugares particulares (Mira 
“Impresión en el lugar correcto” en el primer libro) 

RAND Abreviatura de RANDOMIZE. Los números aleatorios (RND) 
siempre aparecerán en el mismo orden, a no ser que pongas en primer lugar 
RANDOMIZE (Mira “Números aleatorios). 

READ comunica al ordenador que recoja el siguiente bit de datos de la lista 
de DATA y lo ponga en un lugar de almacenamiento (Mira “Una lección de 
lectura/). 

REM Abreviatura de REMARK, Se utiliza en programas para escribir notas 
explicatorias de líneas o rutinas. El ordenador ignora todas las líneas REM. 
Solamente están allí para tu comodidad y mejor comprensión. 

RESTORE hace retroceder al principio el señalizador en la lista de DATA 
(Mira “Una lección de lectura”). 

REPORT Es un mensaje que te transmite el ordenador y que se escribe 
(informe) en la parte inferior de la pantalla (Ver Apéndice A). 

RETURN Sirve para, al final de las subrutinas, enviar al ordenador de nuevo 
al programa principal (Mira “Planificación de programas 4”). 

RND Número aleatorio. Proporciona un número más o menos aleatorio entre 
0 y 1. En realidad, produce un número “pseudo-aleatorio”, que es un número 
que parece aleatorio pero que, de hecho, es parte de una secuencia. La 
secuencia tiene más de 65000 números de longitud (Mira “Números 
aleatorios”). 

RUTINA Es una sección de un programa que realiza una tarea particular. 
Puedes tener la amplitud de una sola línea o de un centenar de lineas (Mira 
también SUBRUTINA). 

RUN (Ejecución) Borra todas las variables y comienza el programa desde el 
principio. Puede sustitutirse por GO TO seguido por un número de línea, si 
no quisieras borrar los almacenamientos (Mira “Planificación de programas”). 
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SAVE almacena programas o datos, en cinta. (Mira Apéndice A en el primer 
libro). Consulta también “Conservación de datos en matrices” y la sección 
sobre la conservación de SCREENS$ en “Diseña tu propio papel decorativo de 
paredes”). 

SCREEN$  Seutiliza cuando se graba imágenes de TV en cinta. (Mira SAVE). 

scroll? aparece al final de pantallas llenas si hay algo más que imprimir. La 
pulsación de cualquier tecla hará que se produzca un desplazamiento con 
desaparición de texto por la parte superior de la pantalla y se podrá proseguir 
la impresión, salvo cuando se trate de N (por No) o BREAK. 

STEP pone la diferencia entre números en un bucle FOR. . NEXT. . .Se 
omite si la diferencia es 1. Encontrarás ejemplos de su uso en “Bucles de 
colores”, “Ideas sobre sonido” y “Bloques de color”. 

STOP para el programa. Se reinicia con CONT o con GOTO. . . (cualquier 
número de línea). 

SUBRUTINA — Se trata de una rutina almacenada por separado del programa 
principal. Una orden GOSUB envía el ordenador a la misma; RETURN le 
lleva de nuevo al programa principal. Es de utilidad cuando una rutina vaya 
a necesitarse varias veces (Mira “Planificación de programas 4'). 

SUBINDICE Es un número entre paréntesis. Se utiliza en el troceado de 
cadenas, por ejemplo A$ (1 TO 3), y en matrices, por ejemplo A(10). (Mira 
“Matrices” y “Troceado de cadenas”). 

TAB (Ver PRINT). 

THEN Parte de IF. . .THEN. . . como línea (VerlF. . .). 

TO Establece el margen de números: 1 TO 5 significa 1,2,3,4,5, Se utiliza en 
bucles FOR. . .NEXT. . . y en el troceado de cadenas. 

USER DEFINED GRAPHICS (Gráficos definidos por el usuario) Son 
caracteres constituídos por el propio usuario (Mira Capítulo 15). 

USR Se utiliza en la definición de gráficos para obtener la dirección correcta 
para los almacenamientos (Mira “Gráficos definidos por el usuario”). 

VAL Abreviatura de VALUE. Calcula el valor de cualquier número entre 
comillas o de cualquier suma entre comillas (Mira Planificación de 
programas 5 y 6'). 

VARIABLE Es un elemento de memoria etiquetado, en el que el contenido 
puede variar durante la ejecución del programa. 

La variable de números almacena solamente números y se etiqueta con 
una sola letra o una letra seguida por otras letras o números. Por ejemplo: A, 
a, Al, RESPUESTA, respuesta, se podrían utilizar. 

La variable de cadena almacena palabras, letras, números o cualesquiera 
otros caracteres entre comillas ” ”. Debe etiquetarse mediante una letra y 
un signo de dólar) por ejemplo, A$, a$, pero no respuesta a al$. 

La variable con subíndice es la existente en una matriz; por ejemplo A(10), 
N5(6). (Mira Matrices”). 

VERIFY Prueba la calidad de las grabaciones de programas. (Mira Apéndice 
A en el primer libro). 
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Aprendiendo Informática con el 
ZX SpectrumV2 


PK McBride 


Consta de un manual de introducción al Spectrum y una casete que 
contiene programas educativos especialmente concebidos para que 
pueda ayudar a su hijo en la escuela. 

El manual explica cómo utilizar plenamente su Spectrum y 
desarrolla las ideas ya abordadas en el primer libro. 

Las casete contiene programas que sirven de guía en el 
funcionamiento de este poderoso microordenador. Algunos 
programas añaden color y sonido a las ideas contenidas en el manual. 
Otros ofrecen programas educativos para hacer fácil y agradable el 
aprendizaje. 


[2] Los programas de la casete son: 

COLOR - Demostración exhaustiva de los colores del Spectrum 
SONIDOS - El Spectrum como un órgano electrónico, señales 
Morse y compositor musical 
PLOTTER - Dibujo electrónico 
CIRCULOS - Imágenes coloreadas en la pantalla 
TESORO - Juego de coordenadas 
HISTOGRAMA - Dibuja diagramas de barras a partir de cifras. 
DADO - Hace tiradas de dados y visualiza los resultados. 


a 


INVESTRONICA 


o _ E CI 


